SERIE colección 
AUTOAPRENDIZAJE 


CELERADO 


código 
máquina 


aplicaciones 


(programación avanzada) 


para 


ZH 
soectrum 


A E 


eS v - o 
A AN 


REDE 


APLICACIONES DEL CODIGO 
MAQUINA PARA EL ZX SPECTRUM 


DAVID LAINE 


APLICACIONES DEL 
CODIGO MAQUINA 
PARA EL ZX SPECTRUMI 


EDICIONES TECNICAS REDE, S.A. 
Ecuador, 91 - Tel. 250 30 97 
08029 BARCELONA 


Editado en Gran Bretaña por 
Sunshine Books - Scot Books Ltd. 
12-13 Little Newport Street, 
London WC2R 3LD. 


O David Laine 
Traducción: Francesc Fité ¡ Salvans 


Edición Española: €) 1985 EDICIONES TECNICAS REDE, S.A. 


Todos los derechos quedan reservados. El contenido de este libro no puede ser 
reproducido, ni total ni parcialmente, ni incorporarse a ningún sistema de archivo de 
datos reutilizables, ni transmitirse en forma alguna o por cualquier medio electrónico, 
mecánico o de fotocopia, ni grabarse y tampoco puede utilizarse por procedimiento 
distinto a los indicados, información contenida en este libro sin el permiso previo 
del propietario de los derechos del mismo. No se expresan ni se implican garantias 
con respecto al contenido del libro ni su adecuación para finalidad alguna. 


ISBN: 84-247-0208-5 


impreso en España Printed in Spain 
Dep, Legal: B. 14076-85 —REDEPRINT — Barcelona 


Á las mujeres de mi vida, vivas y difuntas, sin las cuales yo no 
hubiera tenido la voluntad y el coraje necesarios para crear este libro. 
También a mis colegas en Londres y Malvern, quienes me mostraron 
el camino a seguir. 


«Algunos libros son para ser saboreados, otros para ser tra- 
gados, y unos pocos para ser masticados y digeridos; esto es, 
algunos libros son para leer de ellos sólo algunas partes, otros 
para ser leidos por curiosidad, y unos pocos para ser leídos en 
su totalidad, con diligencia y atención. » 


«Of Studies» 
Francis Bacon 1561-1626 


SUMARIO 


CAPITULO 1: INTRODUCCION ....occcccccccccccr rro 


CAPITULO 2: LA PROGRAMACION. .....o.ocococcocnccccon o. 
La fiabilidad de un programa. La sencillez de un programa. 
La facilidad de comprobación de un programa. La veloci- 
dad de ejecución de un programa. El tamaño de un progra- 
ma. La documentación. Los accesorios del programa. 
Las especificaciones del programa. 


CAPITULO 3: LAS INSTRUCCIONES. ......oocccooccccoo o 
La pila (“stack”). 


CAPITULO 4: LA REPRESENTACION DE NUMEROS. ....... 
Los números en coma flotante. La multiplicación y la divi- 
sión de números en coma flotante. Las estructuras de da- 
tos. La aritmética con y sin signo. 


CAPITULO 5: EL DIRECCIONAMIENTO..................«.. 
El método directo. El método directo con un desplazamien- 
to fijo. El método indirecto. El direccionamiento indexado. 
El método indirecto múltiple. El método encadenado. La 
computación de direcciones (e instrucciones). 


CAPITULO 6: LOS PRINCIPIOS ELEMENTALES ............ 
introducción. El borrado de la memoria de pantalla. Un en- 
sayo en tiempos de ejecución. La preparación del área 
de atributos. La rutina de espera (WAIT) y el traspaso de 
datos entre subrutinas. 


CAPITULO 7: LA PRESENTACION EN PANTALLA.......... 
La colocación de un “pixel'” en la memoria de pantalla. La 
salida. PRIN. PTEX. SRHL. RHL3. PRT8. RPORT. MAPS. 
Sinopsis. 


11 


15 


25 


31 


39 


47 


CAPITULO 8: LA ANIMACIÓN .......o.coococcconn oc 
GCELL. La comunicación con el BASIC. Datos de la celda. 
Descripción de GCELL. Trazado de la celda (de LXX en 
adelante). SEBIT. 


CAPITULO 9: EL TRATAMIENTO DE ERRORES Y EL TRAS- 
PASO DEPARAMETROS ......ococccocccnccc 
Tratamiento de los retornos por error. El traspaso de nom- 
bres de variables (parámetros). VAR$1, una rutina para la 
búsqueda de variables en el área de variables. Documen- 
tación de la rutina. PCALL. VAR$1. Sinopsis. 


CAPITULO 10: RUTINA PARA ORDENAR NUMEROS EN 
COMA. FLOTANTE 00001000 a da 
Una solución que permite realizar en 145 segundos lo que 
exige cinco horas en BASIC. SORTF. COMPF. Un ejemplo 
práctico de SORTF. 


CAPITULO 11: EL TRASPASO DE OTROS PARAMETROS. .. 
OPARS (Otros parámetros). Operación. Números. Fin de 
parámetro (EOPAR). Inicio de cadenas (STSTR). Sinopsis. 


CAPITULO 12: BORRADO DE BLOQUES DE BASIC ........ 
SUPLN. CNXLN. RESLN. Operación de SUPLN. Operación 
de BLOCK. BDLE1. BDLE2. 


CAPITULO 13: AREA DE ATRIBUTOS. ............... RE 
Operación. . 


CAPITULO 14: GRAFICOS EN ALTA RESOLUCIÓN ......... 
Operación de PLINE. XLINE. NPOIN. SDIFF. DRAWL (Tra- 
zado de una lista de líneas). GVAL8. BYTEV: BYTe EVa- 
luado. MOVEC. Operación de MOVEC. Otros detalles. 
DRAWA: Trazado de matriz. Operación de DRAWA. FUOs 
grama de dibujo en BASIC. Sinopsis. 


CAPITULO 15: MISCELANEA ........ooocococcccocc ooo 
BCD o Decimal Codificado Binario. Modificaciones. DEMO1. 
DEMOZ2. Entradas múltiples. La acción recursiva o la ser- 
piente que se muerde la cola. Notas sobre el código máquina 
y el ensamblador. Código máquina — Lo que debe y no 
debe hacer. 


105 


115 


129 


137 


143 


165 


Capítulo 1 
INTRODUCCION 


Este libro no está dirigido a los principiantes sino a los que ya ha- 
yan utilizado programas en código máquina publicados en libros 
o revistas y sientan la necesidad de profundizar en ello por sus 
propios medios. 

Para aquellos que todavía se muestren interesados, este libro no 
es una tesis sobre códigos de instrucciones u operaciones internas 
del Spectrum. Si Vd. no lo tiene aún, deberá conseguir un libro que 
explique detalladamente las funciones del microprocesador Z 80, al- 
gunas de las cuales serán explicadas en el presente libro pero otras 
serán omitidas a pesar de su familiaridad o simplemente porque 
no habrá oportunidad de detallarlas. Se incluye un cuadro sinóptico 
de las instrucciones disponibles y de sus tiempos de ejecución. 
Sin embargo, no se aborda el tema de la programación de perifé- 
ricos, ni del registro vector de interrupción, ni tampoco del registro 
de refresco de memoria. Mi propósito es presentar una introducción 
a los programas en código máquina que puedan conjugarse con el 
BASIC, el cual supongo que será ya bien conocido por el lector. 

¿Por qué razón debe utilizarse el código máquina? 

Para gozar de una libertad total frente a las limitaciones del 
BASIC y de un notable aumento en la velocidad de ejecución. 
He incluido una rutina para tratamiento de conjuntos numéricos 
(Capítulo 10) que es aproximadamente 125 veces más rápida que 
su equivalente en BASIC (y luego se indica cómo se puede aún 
doblar la velocidad). Por otro lado, los errores en código máquina 
se manifiestan de una forma mucho más rápida. 

Para los programas en código máquina, he utilizado un simple en- 
samblador de Picturesque. 

Recuerde siempre que si Vd. puede ver una manera lógica de 
resolver un problema, esto significa que el problema puede ser 
resuelto. 
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Lo más difícil para un principiante es llegar a la solución, per- 
severar en su búsqueda hasta que el último error haya sido eliminado 
y el programa funcione correctamente. 

No intente, al menos al principio, pasarse más de una o dos horas 
de un tirón con ello, y procure siempre tomar nota de todos sus 
errores. Después de unas semanas, los peores momentos de nervios 
habrán pasado ya y Vd. se habrá familiarizado con el código 
máquina. 

Ante cualquier problema, escriba exactamente lo que quisiera 
conseguir y después trace los diagramas de flujo. Si no puede resol- 
ver una pequeña parte del problema, guárdela de momento en una 
cajita —es decir, apartada— y continúe con el problema principal. 
Después vuelva a trabajar con los problemas apartados como si 
fueran tan importantes como el problema principal. 

Finalmente, no olvide esto: el verdadero programador se manifies- 
ta en una de estas dos situaciones: en las profundidades de la deses- 
peración porque el programa no funciona o en exaltado júbilo por 
conocer la causa que impide que el programa funcione. 
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Capítulo 2 
LA PROGRAMACIÓN 


«Un ingeniero fue llamado desde lejos. La máquina no 
funcionaba. El estudió el problema. Pidió un martillo. Le 
propinó un formidable golpe a la máquina. Funcionó. 
Más tarde llegó la factura: 


Viaje y transporte 10.000, — 
Golpear la máquina 5, — 
Saber qué y dónde golpear _100.000, — 
TOTAL 110.005 ptas. (+ 1.T.E.J» 


(«Modernised Apocryphal») 


La programación es un arte más que una ciencia. La ciencia, 
no obstante, también forma parte de ella ya que las reglas impuestas 
por las instrucciones en código máquina y por cualquier sistema 
operativo no admiten flexibilidad. Pero la presencia de los mejores 
ingredientes no implica necesariamente un buen resultado en térmi- 
nos culinarios cuando el cocinero es un gorila, sino que, por el 
contrario, un gran cocinero sabrá lograr un resultado excelente a par- 
tir de los principios menos prometedores. 

Hay una constante acción recíproca entre ocho factores: 


— Fiabilidad 

— Sencillez 

—Facilidad de comprobación 

— Velocidad 

— Tamaño 

— Documentación 

— Accesorios del programa 

— Especificaciones del programa 
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LA FIABILIDAD DE UN PROGRAMA 
Conjetura de Diikstra: j 


Si un programa tiene n instrucciones, cada una de ellas con una 
probabilidad p de que cumpla su cometido, la probabilidad de que 
el programa funcione correctamente es del orden de p”. 

Si el programa forma un bucle con £ vueltas, entonces la pro- 
babilidad es del orden de p», lo cual significa que si p no es igual a 
uno el programa no merece ser ejecutado. 

Cada defecto en un programa debería ser investigado, explicado y 
corregido. Un programa defectuoso no merece ser utilizado. Una 
coma mal situada ha costado a veces millones. 


LA SENCILLEZ DE UN PROGRAMA 


No tiene ningún mérito realizar programas innecesariamente com- 
plicados. Lo más complicado puede siempre ser dividido en unas 
cuantas partes y éstas, a su vez, pueden ser reducidas: a partes más 
sencillas todavía. Yo creo que una buena forma de comprobar un 
programa es realizar el listado desde las instrucciones de salto a las 
etiquetas más adecuadas. Los resultados suelen ser manifiestamente 
provechosos. 


LA FACILIDAD DE COMPROBACION DE UN PROGRAMA 


Se ha escrito ya mucho sobre este tema y todo lo que voy a 
señalar aquí es que la sencillez en la estructura facilita mucho la 
comprobación de un programa. Puede haber más combinaciones 
de bits en sólo 40 bytes que átomos en el universo. 


LA VELOCIDAD DE EJECUCION DE UN PROGRAMA 


Cada instrucción precisa de un tiempo finito para ser ejecutada, y 
existen siempre varias combinaciones posibles de instrucciones que, 
mezcladas, pueden producir el mismo resultado. Si observa que una 
parte de un programa parece especialmente lenta en producir resul- 
tados, examínela detenidamente para ver qué bucles hay dentro de 
otros bucles. El aumento de velocidad puede requerir cambios en la 
estructura y repercutir, por tanto, en un programa más largo. 
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EL TAMAÑO DE UN PROGRAMA 


«Cualquier persona puede construir un puente pero únicamente 
un ingeniero puede construir adecuadamente un puente». 

El tamaño de un programa es la suma de dos partes: las ins- 
trucciones y el conjunto de datos. 

Los datos no deberian formar parte de un programa excepto, 
quizás, en programas de prueba. El programa debería trabajar con 
ayuda de un puntero que localizara los datos necesarios en el lugar 
donde éstos se encontraran y permitirles que cumplieran su misión. 

El número de instrucciones puede ser casi siempre reducido. 
Cuanto más directa sea la construcción del programa, más efectiva 
y fácil será esta reducción. 


LA DOCUMENTACION 


Un programa o una subrutina desprovista de una documenta- 
ción adecuada puede tener muy poca utilidad. Se pueden retener 
en la memoria los detalles de utilización de un programa durante 
unos tres meses pero, una vez transcurridos éstos, el programa pre- 
sentará un riesgo elevado de fallar cada vez que se utilice nueva- 
mente. 

La documentación no consiste tampoco en una gran obra, sino 
que tan sólo es preciso que conste de: 


Lista de las condiciones de entrada a) registros 
b) posiciones especiales 
Lista de las condiciones de salida a) registros 
b) posiciones especiales 
c) registros protegidos 
d) estado de los señali- 
zadores (banderas oO 
«flags») 


Breve descripción de la función 

Todo esto, junto con un listado y un diagrama de flujo, debe- 
ría guardarse en una buena libreta de notas con tapas rígidas. Si 
puede guardar también el código fuente original en cinta, mejor 
todavía. Yo suelo guardar mensajes en los mismos casetes y 
parece que da buen resultado. 


LOS ACCESORIOS DEL PROGRAMA 


Cuando se habla de lo que se necesita además del programa 
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para ejecutarlo, sin demasiada fantasía, se puede decir que se trata 
de los periféricos necesarios además del televisor. Debe adecuarse 
siempre la presentación al dispositivo de salida que vaya a utilizarse. 
Lo que podría ser muy impresionante en destellos y color tendrá 
un aspecto muy diferente en una impresora ZX. 


LAS ESPECIFICACIONES DEL PROGRAMA 


Este tema se ha dejado para el final porque todo lo demás le 
afecta y queda afectado por las especificaciones. Deben darse varias 
vueltas al asunto hasta llegar a un compromiso aceptable. 

Algunos aspectos particulares merecen ser destacados si Vd. está 
preparando un programa para otra persona: 


a) ¿Entiende Vd. bien lo que él le dice que necesita? 

bJ) Lo que dice que necesita, ¿es una expresión verdadera de lo 
que realmente necesita? Recuerde que Vd. y esa persona han de 
tener una coincidencia de apreciaciones sobre el problema que ha de 
resolverse. 

c) ¿Puede Vd. ver el problema como otro planteamiento general 
que haya resuelto antes? O, dicho con otras palabras, ¿ha soluciona- 
do Vd. algo como esto ya? ¿Será este problema el primero de una 
serie? ¿Sería más conveniente escribir un programa más general 
para prever futuras necesidades? Por ejemplo: dada la necesidad de 
trabajar con aritmética de hasta 7 bytes, ¿no sería mejor prever so- 
luciones generales para N bytes y luego asignar el valor 7 a N para el 
caso específico? 

d) Si el problema es muy amplio el tiempo empleado en diseñar 
la base de datos puede significar luego un ahorro de tiempo a la 
hora de manejar los propios datos. Todos los datos que se refieran a 
un tema concreto deberían almacenarse juntos, para poder acceder a 
ellos a través de un registro de página. Los diferentes valores dados 
al registro de página se utilizarán para acceder a los distintos datos. 

e) Cuando ya cuente con un esquema de la solución, tendrá 
también algunas preguntas que hacerse. Por lo tanto, vuelva a a) y 
comience de nuevo. 
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Capítulo 3 


LAS INSTRUCCIONES 


Los códigos de las instrucciones y sus influencias sobre los seña- 
lizadores (banderas/«flags») están condensados en las figuras 3.1 y 
3.2, junto con las combinaciones de direcciones permitidas. Estas 
tablas no sustituyen a los libros mencionados en el capítulo 1. 


Disposición de la Figura 3. 1: 


columna descripción 
1 Mnemónico de la instrucción 
2 Operación simbólica 
3 Combinaciones de direcciones permitidas (donde están 


permitidas dos tipos de éstas, los dos grupos posibles 
se hallan separados por un espacio). 


Los números colocados debajo de algunas direcciones indican 
los tiempos de ejecución de la operación asociada (en ciclos de 
reloj del ordenador). 


N indica que puede utilizarse un valor de 1 byte. 
NN indica que puede utilizarse un valor de 2 bytes. 
(NN) indica que puede utilizarse la dirección de un byte. 
d es el desplazamiento de 1 byte utilizado con un registro 
de página. 
DISP es el desplazamiento en el salto hacia una instrucción 
cercana. 
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DIRECCIONES - CODIGOS DE CONDICIONES - REGISTROS Y TIEMPOS 


CODIGO| OPERACION | DE EJECUCION (CICLOS DE RELOJ) 


ArA9S>-Cy | A A/BICIO/E[HILINI (HL) |(1X + d)] (Iv + d) 
ADC K— 4-7 4 19 ——y 
HL+ HL+S + Cy HL BC|DE|HL|SP 
<K— 15 
A AIBIC[DIE]H[ LIN ML) 
K— 4 7 
HL BC/DE ¡HL [SP 
ADD DU ea 
IX BC/DE/1x|SP 
EU 
Y 8c/D€ |tY jsp 
ess Lies 4 
AND AlBIcIOJE [HIL|N]CHL)I(x+d)(1Y+d) 
EA 7 HH 14 
sT Ze b+s o(:1213/4/5|617 AIBIC[D/ EJ HILI(HLYCIX +A) LY + d) 
HB 2H — 20 > 


CINCIZ.[NZ [M| P| PE] PO NN 
STACK PC ral ARS 
CALL PCE NN SI NO ES OBEDECIDA 
NN 
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0 ES 


FLAGS+ A-5 AIBICID[E[IHILINICHL)IC+ Ad VER TAMBIEN CPD CPDR 
CP de [ lo ME Ae ) 


F3 id CP1 CPIR 
En z 


DAA AJUSTE DEL RESULTADO, USADO CON ARITMETICA BCD (DECIMAL CODIF. BINARIA) 


pee |S+ 5-1 AIBICIO/E /H[L|BC|DE[MLISPIXI Y I(HL)(1x+ d) (Y + d) 
E—— e —_A 6 — A 19 HE EÁKÁ 2 5) 
DI INHABILITA INTERRUPCIONES - EL SPECTRUM UTILIZA INTERRUPCIONES NO ENMASCARABLES 


Be B-1 
BAGS JR NN 
B=0 NOP 


DESPLAZAMIENTO 
13 OBEDECIDA VER JR MAS ABAJO 


8 NO OBEDECIDA 


DINZ 


El HABILITA INTERRUPCIONES - EL SPECTRUM UTILIZA INTERRUPCIONES NO ENMASCARABLES 


(sp) Ss 5 (SP) HLJixfir 
(qe 233 
AF SAF' AF AF' 
EX > ds 
DE SHL DE HL 
14 
ges ac: 
ExXx | DES DE' 
HLS HL 4 
Har [o | 
ASIGNA EL 
IM MODO DE ol1/2 
INTERRUPCION | +83 
$ € INPUT (C) A|BIC]DOJEjHIL (c) VER TAMBIEN IND INDR 
IN a "3,14 IN INR 
Ae INEUT(N) A (N) 
11 LEE VIA DE ACCESO («PORT») PERIFERICA 
INC [S=S+1 AlBIcID[E/HLL]8c[DEBLISP ix] Y IHAL) (IX + d) (Y d) 
KA —_ o 6 [O o AAAÁA 235 AY 
Figura 3.1a 


pres (HDI) IN 


JP 4 -4— $ Lip? 
PCe Ss ¡FO | Cinclz m2]m|P]PE¡PO NN 
PH $) rod 
PC € PC +DISP [DESPLAZAMIENTO ABS (DISP) £ 127 PC SEÑALA A LA SIGUIENTE OP 
112 
TR 
cnc /z INz. 
<——12 —>0 7 SI NO ES OBEDECIDA 
A B0)I(DE)I(HL) INN) I(1x +A yd) 
K— SAA 14 > 
ABic[oJEjnit A[BIC[OJE A iL]N 
EA SS | 
AlBIc[DJE[H|L (HL) +d)IIY+ a) 
si EA AXÁA 4 
LAI WES NN |(NN) 
10% 29) VER TAMBIEN 100 LDOR 
LD FS.td LD! LDIR 
xfir pig 
CARGA LA 1.? E Acid 
DIRECCION 
a 00 Ab iciolelnje]n 
DIRECCION ej 
(8c)ICOE)I(mu) A 
(+ d)(Y+d) A/B|C|D]E/HIL. IN 
KÚ—— 14 —— 
(NN) AJBc|OE|HL|ixjiY]sP 
IIAÁAÁAÁAÁáÁáÁ O ——= 
I/R A 
q 
NEG 8 
NOP + 
oR AIBICIDOJEIHILINICHL)ICIA + d)CtY + a) 
AA Y A 1 
SALIDA DES | (C) AlBIC)DIEJH:L 
HACIA LA — 1 VER TAMBIEN OUTD OTDA 
our | DIRECCION BC E3,1d OUTI OTIR 


SALIDA DE A 
HACIA LA | (N) A 
DIRECCION An pi 
LEE PARTE Al: 
Por [rabeLaria | AFIBCIDENHLI 1x1 1Y 
SPa 5P+ 2 014. 


'ARGA ENPILA| AFIBCIDE [mL ixlty 
PUSH SP= SP-2 pi clic 


Sir O Ol1121314/5]6/7  A[BIC[O[E|HILICHL)ICIA+ A) IV + a 
nes [Sr 0 | 1213/4/5l6/ 18IclolE lt IC) ata 
POP PC DE lo 
LA PILA 
cinc 2 nz] m|[P|PojPE 
. Ll OBEDECIDA 
POP PC SI CC 5 NO OBEDECIDA 
RETORNO W DE] 
RET I INTERRUPCION 
mer [IAEA 
O ENMASCARÁ 
AL ROTACION | IAEIO ENSIEIE Kv) SEE F3,2 Ri 
IZQUIERDA - |. *———8-———%- ¡5 —— 43 —=> 
RLA |ROT.iZQ.DEA| 4 SEE F3,2 Ri 


Figura 3.1b 


ROTACION AIBIC]DlEJHILIHD) (+ d) (Y + á) VER F3,2 R2 
RES IZQUIERDA E A o E 


REZA : VE FS AZ 


ROTACION IZDA. 


RLO DEA Y (HL) 18 BCD A Y (Ht) POR PARTES VER F32R3 

RR ROTACION AIBICID]EJHIL)(HL)(A+ DI + d) VER F32 R4 
DERECHA E— 3 EH 2. 3 > 

ARA z VER_F32 54 

RARE ROTACION A/B[CIDIEJHIL (HL) (IX +d)[(1Y + d) VER F3,2 R5 
DERECHA KH—8 5 Há 23 


FRA a VEN FS DAS 


ROTACION DERE 
BRO lena nea y (HO 18 BCD A Y (HL) POR PARTES VER F3,2 R6 


easT | PCENLAPILA | Ol 8/16 124/32]40/48/56 PARA SALTOS AL ENCABEZAMIENTO DE LA ROM 
Pes AqAAAN AÁÁá 


AS A-S -Cy A AIBICID[EJH]L|NI(HU)I(1X +d)(Y + d) 
sec KA AA AAA 1 SS 
HLé HL-S -Cg | HL EC|DE|HL|SP 
a 
PONE A «1» 
seF SEÑAL. DECy | 4 
ser |$90+ 1 0/1112/3/415/16]7 AIBICID/EIHILI(HLYIAX +A) ICIV+d) 
KB 15 Há 23 + 
sia |PESPLAZAMIEN.| A[BICID|EJH]LI(AL)I(1X+ d)l(1Y + d) ver F3,2 51 
IZDA. ARITMETI] 8 ————M=15 3-23 
sra | DESPLAZAMIEN,| A(B]CIDIEJHIL|CHL)IX+ d)i(1Y+d) ver F325S2 
DER-ARITMETICO|  t——- 8-——— 5H —— 23 ——> 
san | PESPLAZAMIEN,| AIBICIO[EIHICHD) UK 1X+ A)ICY +9) VER F3,2 53 
DERECHA LOGICO]| 48 ———3-15 4——23-——> 


ACA-S AIBICID EJHIL IN IHAL) (+ ANO Y +d 
a [AS ADS AIBIC/D/E/H]LInICHL) IX +ad)K1Y + d) 
A 4 AÑ] A 14 SS 


Cy = ACARREO 


Figura 3.1c 
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BLOQUES, REPETICION; CARGA Y COMPARACION 
FLAGS + A-(HL) 


CPD |Hte HL-1 COMPARACIÓN CP TODAS LAS INSTRUCCIONES DE COMPARACION 
Bce Bc-1 DEJAN INALTERADO EL REGISTRO A, ALTERANDO, 
HLE HLS1 SIN EMBARGO, LOS SEÑALIZADORES SEGUN EL 
RESULTADO DE LA SUSTRACCION 
cr loco 0-1 REPETICION HASTA QUE D O | SIGNIFICAN DECREMENTAR O INCREMENTAR 
A=(HL) O 8C=0 EL CONTENIDO DE HL. 
ETA El CONTENIDO DEL REGISTRO DOBLE BC ES 
REPETICION HASTA QUE DECREMENTADO EN TODOS LOS CASOS. 
CPOR [8c« Bc-1 A=(HL) O BC=0 


DE< DE+1 
HLe HL +1 
Be Bc-1 
DE + DE-1 
LDOR |HLe HL -1 
Bce Bc-1 REPETICION HASTA QUE BC=0 DECREMENTO DESPUES DE LA EJECUCION 
DE + DE+1 
LDIR [ie Hi+ 1 
BL+ Bc-1 REPETICION HASTA QUE BC=0 DECREMENTO DESPUES DE LA EJECUCION 
BLOQUES, REPETICION (ENTRADAS/SALIDAS) 
Ino BC CONTIENE LA DIRECCION DE LA VIA DE ACCESO (PORT) DE ENTRADA, 
HL CONTIENE LA DIRECCION DE LOS DATOS 
8 + B-1 
HLe HL+4 
INOR |[B* 8-1 
HL e HL-1 REPETICION HASTA QUE B=0 DECREMENTO ANTES DE LA EJECUCION 
INIR |9+ 8-1 
HL HL+1 REPETICION HASTA QUE B=0 DECREMENTO ANTES DE LA EJECUCION 
(Cc) + (HL) BC CONTIENE LA DIRECCION DE LA VIA DE ACCESO (PORT) DE SALIDA, 
OUTD |[B+ 8-1 HL CONTIENE LA DIRECCION DE LOS DATOS 
HL HL-1 
Be 5-1 
oror [8 + 8-1 
HL e HL-1 REPETICION HASTA QUE B=0 DECREMENTO ANTES DE LA EJECUCION 
oria [8+ 8-1 
HL + HL+1 REPETICION HASTA QUE B=0 DECREMENTO ANTES DE LA EJECUCION 
Figura 3.1d 
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Fla OPERACIONES DE DESPLAZAMIENTO Y ROTACION 
RL,RLA 


RLC,RLCA 


da [7fels[+[3/2[: lo] 


AAA 
[7[e[s[+]312]+ [0] 


RRC, RRCA 


[7 [e[s[+] 
A” HA 


25 PEERBENO s SIA 
IIIIDLA 
al PEERRRDTA El 
26) RERRBEDA E SRA 
OOOO 


E) [IsIst+-Isf=1 "101 ley 
5 4 GleskEREIJ SRL 
IR El 
le] ElsIsI+IsI=1T0] la] 


= ACARREO 


Figura 3.2 


TR 
INSTRUCCIONES QUE ALTERNAN SEÑALIZADORES (EN EL REGISTRO F) 


Los señalizanorEs Lacs»a) [S|]Z[ [H] [ominÍc,] COMENTARIOS 


ARITMÉTICA 


8BT  —ADDA rr ¡aDcar]jr*ix*| |x| |v 
SUB r ,SBc r *x |) * v 
cr r *jel | v SEÑALIZADORES A «1» PARA A. 
NES eje] ¡| [v SENALIZADORES A «1» PARA A=—A 
I6BIT ADD 
ADC * 
sBcC * 


LOGICA AND r 
OR r ¿XOR r 


cri 

RLA — ¡RRA 

RICA  ¡RRCA 

RL or ¡RA r 

ALC r ¡RACr 

DESPLAZAMIENTO SLA r— ¡SRA r 
SRL r 


* 
* 
COMPROBACIÓN DE BITBIT b, F || 


An Á 
ROTACION DE A Y 
ROTACION DE A Y Cy 
ROTACION DE R Y 
ROTACION DER Y € 


ROTACION 


Et BIT B DE r COLOCADO EN Z 
TRANSFERENCIA A IN r, (E) 


ENTRADAS SALIDAS ¡N; — , IND ENTRADA 
OUTI ; OUTD SALIDA DE BLOQUES 
INR; INDRA, $-p1r 0r9 
¿ $-1 15FB=9 


OTIR  ¿OTDR 


BLOQUES LDI ¿ LDD 
TRASLADO LDIR  ¡LDOR 


BUSQUEDA CPI ¿CPD 


HF PUESTO A «1» SI BC = 1 


j $ PUESTO A «INSI A = (HL) 


DECO POSO ODO OOOO OO OCCECcoN 


PDERPOS ea Jena E E Aso pele 

sa a alejas essa] 
ER OPA UR E A EA O 
BEYYCCO COCO IA CI 
ESOO AO A CCC ELE LIE 


CPIR  ¡¿CPDR 3 PUESTO A «la SI BC = 1 

orras CCF ACARREO = ÁTARREO 
DAA * AJUSTAR El RESULTADO PARA 
DEC r * CONTINUAR CON ARITMÉTICA BCD 
INC r * 
LD A, 1 * ' EL «FLIP-FLOP» DE HABILITACION DE 
LD AR + INTERRUPCIONES SE TRASLADA A P/V 
RLD  ¡RRD * 
SscF ROTACION IZQUIERDA Y DERECHA BCD 


SIMBOLOS UTILIZADOS EN LA TABLA 

1. SIN SIMBOLO -- NINGUNA ACCION 
0 — PUESTA A «0» 

1 — PUESTA A «in» 

P — P/V CON CONTENIDO DEPENDIENTE DE LA PARIDAD DEL RESULTADO 
V -—- P/V CON CONTENIDO DEPENDIENTE DEL DESBORDAMIENTO NEGATIVO D£ BYTE 
6. dk — PUEDE ESTAR A «1» O A «0» 

7. b-ES UN NUMERO DE BIT(DEO A 7) 

8. 1 — ES UN REGISTRO SIMPLE C UN VALOR DE UN BYTE 

9 $ 
A” A VER COMENTARIO EN LA SECCION «BLOQUES» 


Figura 3.3 
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LA PILA («stack») 


La pila está formada por un grupo de elementos de memoria, 
de longitud variable, que puede almacenar datos mediante el sis- 
tema «LIFO» («last-in-first-out» = último en entrar, primero en salir). 


Es como una pila de cartas, la última que se coloca encima es la 
primera que debe quitarse. Pero para complicar un poco más las co- 
sas, la pila se encuentra situada en la memoria en forma inver- 
tida, es decir, la parte alta de la pila (donde se introduce el último 
dato) está situada en una dirección más baja que la parte baja de la 
misma (donde se aloja el primer dato introducido). El puntero de 
pila («SP», «stack pointer») es un registro de 16 bits que indica 
siempre la dirección del último dato introducido en la pila. 

Normalmente se utiliza la pila para almacenar direcciones de retor- 
no de subrutinas, en forma de un par de bytes. Una instrucción 
CALL coloca el par en la pila (y decrementa el valor de SP en dos 
unidades) y otra instrucción RET recupera el par de bytes (e incre- 
menta el valor de SP en dos unidades). Sin embargo, existen tam- 
bién otras dos instrucciones que utilizan la pila: PUSH y POP. 
Cuando se utiliza PUSH con un registro de 16 bits, sus dos bytes 
son colocados en la parte alta de la pila y se decrementa el SP en 
dos. La instrucción contraria es POP, la cual coloca los valores de 
los dos últimos bytes de la pila en un registro de 16 bits, incre- 
mentando, al mismo tiempo, el valor de SP en dos unidades. 

El uso repetido de PUSH reducirá eventualmente SP hasta que 
llegue a sobrescribir sus programas o datos y entonces pueden apa- 
recer algunas consecuencias poco divertidas que suelen terminar en 
una puesta a cero del sistema. 

Mientras que los POPs y los PUSHs se compensen entre sí, 
el puntero SP no se descontrolará. Normalmente son suficientes 
unos 200 bytes para la pila aunque con subrutinas profundamente 
anidadas o con una programación más avanzada que la tratada en el 
presente libro, se necesitaría quizás algo más que esto. Recuerde que 
cuanto más alta sea la dirección inicial de su programa, menos es- 
pacio le quedará para la pila. 

Si POP y PUSH se desequilibran durante la ejecución de una ruti- 
na, el resultado será que la subrutina no podrá retornar correcta- 
mente (un fallo muy común en los principiantes). Sin embargo, 
si al entrar en la subrutina se almacena el valor de SP en alguna otra 
dirección (¡que no pueda ser sobrescrita por la pila!), siempre podrá 
salirse correctamente del más profundo nivel de anidación de la 
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subrutina, mediante la restitución del valor de SP y la ejecución 
de la instrucción RET. Por ejemplo: 


GRAFS LD (DIRECCION), SP 


SALIDA LD HL(DIRECCION) 
LD SP,HL 
RET 


Todo lo que había en la pila sigue todavía allí, aunque no se 
utilice y sea después sobrescrito por las subsiguientes instrucciones 
PUSH. 
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Capítulo 4 


LA REPRESENTACIÓN DE NUMEROS 


«Cuando yo utilizo una palabra», dijo Humpty Dumpty en 
un tono despreciativo, «significa exactamente lo que yo he 
escogido que signifique, ni más ní menos.» 

«La cuestión es», dijo Alicia, «cómo puede usted hacer 
que las palabras tengan significados tan diversos.» 

«La cuestión es», dijo Humpty Dumpty, «cuál de ellos debe 
ser el correcto. Esto es todo.» 

(Alicia a través del espejo.) 


Dado el contenido de un byte cualquiera, poca cosa puede de- 
cirse de él aparte de su valor. Su significado depende del progra- 
mador o del programa que dieron al byte su significado particular. 


Ejemplo 1 

Si el byte es una copia del registro F («Flags» = señalizadores), 
usted deberá fijar su atención en la figura 3.3 y además posiblemente 
deberá retroceder en el programa para determinar qué operación y 
en qué dato alteró un bit determinado del byte. 


Ejemplo 2 

Puede ser parte de un número en el sistema de coma flotante del 
Spectrum (ver figura 4.1). Antes de asignar un significado al byte, 
debe determinar de cuál de los cinco bytes posibles se trata. 


Ejemplo 3 

Puede tratarse de un byte correspondiente a un número entero 
de 16 bits. De nuevo cabe preguntarse: ¿de cuál de los dos bytes po- 
sibles se trata? 
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t ' 
EXPONENTE : ] CARACTERISTICA DE 4 BYTES 
y ¡ 


DIRECCION BAJA EL PUNTO (LA COMA) BINARIO ESTA SITUADO ENTRE EL BIT 7 DIRECCIÓN ALTA 


Y EL 6 DEL BYTE MAS SIGNIFICATIVO DE LA CARACTERISTICA 


VER El MANUAL DEL SPECTRUM, CAPITULO 24 


Figura 4.1 


Ejemplo 4 

Puede ser un auténtico valor de un solo byte, como un carácter 
ASCI! o bien un carácter propio del Spectrum. En este caso el signi- 
ficado puede deducirse de la figura 4.2. Nótese que si se utiliza un 
interfaz del tipo RS232/V24, necesitará seguramente insertar unos 
códigos de control de transmisión y disponer adecuadamente el bit 
más significativo de cada carácter ASCII de acuerdo con la paridad 
requerida por el periférico. 


Ejemplo 5 

Puede ser un código de instrucción o bien parte de él. Si empieza 
a descifrarlo desde un lugar incorrecto, el resultado será un galimatías. 

Partiendo de un solo byte no hay manera de conocer lo que éste 
significa. Sin embargo, si se puede determinar la posición en la que 
se inicia el programa en código máquina, el resto del programa segui- 
rá de una forma lógica y una vez en marcha su ordenación se esta- 
blece automáticamente por el hardware. 


LOS NUMEROS EN COMA FLOTANTE (ver figura 4.1) 


Lea el manual del Spectrum (Capítulo 24). Lo que sigue son 
normas para trabajar con números en coma flotante. 

El signo de la característica está en el byte con dirección más 
baja. 

Cuando trabaje con números en coma flotante, debe siempre 
ajustar la magnitud del exponente de tal forma que el bit posterior 
al bit de signo de la característica sea el inverso del bit de signo, es 


26 


BYTE 
ss ETS TAS 20] 
VALOR DEL BYTE 


tapia | FiLa  )COLUMNA ! 
CODIGOS ASCII CARACTERES DEL SPECTRUM 


o [fu|sow|Srx| rx £or|'ev|Ax|e 
[sos 


y [vw 
aa 


3% ESTOS CARACTERES SON 
VARIABLES NACIONALES 


TABLA e 


* LOS ESPACIOS ENCERRADOS 
POR LINEA MAS GRUESA 
INCLUYEN LAS INDICACIONES 
: DE LOS GRAFICOS DEFINIDOS 
Figura 4.2 POR EL USUARIO 


decir, que la característica puede empezar por 01 o bien por 10, pero 
nunca por 00 ni por 11. 

Para sumar o restar números en coma flotante, primero deben 
igualarse los exponentes (desplace la caracteristica del número menor 
hacia la derecha hasta que su exponente sea incrementado) y des- 
pués sume o reste las características como sea preciso y corrija el 
exponente si es necesario. Este método de desplazamiento para 
igualar exponentes se llama normalización. 


LA MULTIPLICACIÓN Y LA DIVISION DE NUMEROS 
EN COMA FLOTANTE 


1) No lo haga, a menos que se vea obligado a ello. 
2) Si debe hacerlo: 
a) sume o reste los exponentes 
b) multiplique o divida las características; o bien: 
c) ¡deje al BASIC que lo haga por usted! 


LAS ESTRUCTURAS DE DATOS 


Las estructuras de datos pueden ser tan sencillas o complejas, 
largas o cortas como se desee, pueden enredarse o puede encontrar- 
se un lugar para alojarlas. Hay una solución para cada tipo de pro- 
blemas. 

Supongamos que deba almacenarse una gran cantidad de datos 
alfanuméricos. Tenemos A-z, A-Z, 0-9, espacio y puntuación. Si in- 
troducimos un carácter SHIFT para distinguir entre mayúsculas y 
minúsculas y colocamos los números en el grupo contrario a la pun- 
tuación, podremos comprimir la totalidad del planteamiento en 40 có- 
digos distintos. De esta forma, 40 * 40 * 40 = 64000 y 16 bits en 
2 bytes tienen un valor máximo de 65535. Por el precio de algunos 
códigos podemos tener tres caracteres donde antes había sólo dos. 
Por tanto, logramos un incremento del 50 % en la capacidad de 
almacenamiento. 

Tenemos ahora un caso parecido: existen en total 26 * 26 = 676 
pares de letras posibles: aa, ab, ac, ... ZX, zy, zz, los cuales no exis- 
ten en su totalidad en ninguno de los idiomas más corrientes. Posi- 
blemente, para una aplicación concreta, sean necesarios menos de 
256 pares, con lo cual la introducción puede ser codificada a dos le- 
tras por byte, con el resultado de doblar la capacidad de almacena- 
miento. 
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Cuando se manejan grandes conjuntos o matrices de datos nu- 
méricos, de los cuales muchos elementos son nulos, debe procurarse 
encontrar la forma de tratar los datos no como matrices sino utili- 
zando únicamente como los elementos no nulos. Esto será quizás 
algo más lento pero, al menos, resolveremos el problema. 


LA ARITMÉTICA CON Y SIN SIGNO 


La aritmética con signo utiliza el bit más significativo del valor 
para indicar el signo aritmético de los bits restantes. En la aritmética 
sin signo se sigue la pista de los valores de las variables. General- 
mente basta con ignorar el bit de signo, como se hace en el direc- 
cionamiento (pero se tiene en cuenta el señalizador de acarreo 
(«carry flag»)). 
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Capítulo 5 


EL DIRECCIONAMIENTO 


El direccionamiento es el método mediante el cual los datos o va- 
lores constantes almacenados en la memoria son transferidos a los 
registros del Z80 para trabajar con ellos, y es un concepto de gran 
importancia. El Z80 tiene muchos modos de direccionamiento, algu- 
nos más útiles que otros en ciertas aplicaciones. Debe usted tener 
siempre muy claro cuándo está utilizando variables de 8 bits y cuándo 
las usa de 16 bits. Las direcciones son siempre valores de 16 bits y se 
refieren o bien a un byte o bien al byte más bajo de los dos que for- 
man el valor de 16 bits. Recuerde, no obstante, que en la zona de 
programa BASIC, el sistema del Spectrum tiene los bytes de los nú- 
meros de linea invertidos entre sí. 

Existen diferentes métodos para acceder a los datos. Algunos 
se detallan a continuación: 


EL METODO DIRECTO 


La posición del dato es conocida, y tiene un nombre o un valor 
numérico. 


Por ejemplo: 
LD  HL,(23627) colocará el contenido de 23627/8 en el 
registro doble HL. 
LD  A,(23627) colocará el contenido del byte 23627 en 


el acumulador o registro A. 


EL METODO DIRECTO CON UN DESPLAZAMIENTO FIJO 


Por lo que se refiere a la forma de actuar, es idéntica al direc- 
cionamiento directo. 
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Por ejemplo: 


LD B,(PHRED +5) PHRED es un valor determinado por el 
ensamblador durante el proceso de en- 
samblaje. 


En la mayoría de los ensambladores, la dirección puede ser gene- 
rada mediante cualquier combinación de etiquetas y valores numéri- 
cos unidos con signos «+» o «—». También puede darse un valor 
determinado a una etiqueta en vez de ser asignado este valor por el 
ensamblador. 


EL METODO INDIRECTO 


La dirección del dato requerido se encuentra en un lugar conocido. 
Por ejemplo: 


LD HL,(PHRED) cargará HL con la dirección. 
LD B,(HL) cargará B con el byte contenido en la 
dirección señalada por HL. 


EL DIRECCIONAMIENTO INDEXADO 


Este método utiliza dos registros de 16 bits, IX e IY. En este con- 
texto, una página es una zona de no más de 256 bytes cuya direc- 
ción se carga como un valor de 16 bits en el registro IX o en el IY. 
Se supone que existen varias de estas páginas situadas ordenada- 
mente conteniendo cada una de ellas datos para una utilización 
determinada (ver un ejemplo de ello en el Capítulo 10). Los datos son 
tratados mediante desplazamientos con relación al inicio de cada 


página. 
Por ejemplo: 
LD A,(IX +5) cargará A con el 6.” byte de la página 
que empieza en la dirección señalada 
por IX. 


El método se vuelve más transparente si al desplazamiento fijo 
le damos un nombre que indique su contenido. Considérense, por 
ejemplo, los resultados de un examen. A cada alumno se le asigna 
una página organizada de la siguiente forma: 
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N.? de byte Contenido 


A ) n.? de alumno 

2 nota Matemáticas 
3 » inglés 

4 nota Física 

5 » Historia 

6 etc. 


Entonces podemos usar: LD A,(IX+ FISICA), siempre y cuando 
le hayamos dicho al ensamblador que FISICA tiene el valor 4. Para 
cargar HL con el número de alumno debe ordenarse: 


LD L,(IX+0) para cargar el byte «bajo» 
LD H/A(IX+ 1) para cargar el byte «alto» 


Para pasar al siguiente alumno solamente será preciso sumar la 
cantidad adecuada al registro de página IX. En el manual del Spec- 
trum se nos advierte que el registro IY no debe ser utilizado, pero 
esto no es estrictamente verdadero. Aunque su valor no debe alte- 
rarse nunca, está siempre fijado en 23610 y puede utilizarse para 
acceder a algunas variables del sistema. Por ejemplo, para poner 
a «1» el bit n.” 1 de los señalizadores («flags»), la instrucción sería: 


SET 1,(1Y+) 


EL METODO INDIRECTO MULTIPLE 


Cuando se tiene acceso solamente a la dirección del dato, hay 
que repetir el proceso utilizado para obtener una dirección indirecta. 
Teóricamente no hay límite en cuanto a los niveles a los que se puede 
llegar a actuar con este proceso, aunque no considero razonable más 
de tres niveles de descenso. 


EL METODO ENCADENADO (ver figura 5. 7) 


Este método consiste generalmente en encadenar bloques de 
datos de tal forma que permita efectuar una localización rápida. El 
encadenamiento requiere que cada elemento de los datos lleve con- 


33 


eg ennbiy 


ÑN o31nm4 
—N 0831NMd —N O831NNMd S0Lva 3a 


OLN3IN313 39 
yOO YO IJLLN3AOI 


L— Nova U OLVO 


sol3ud soLnaw313 so1y | 30 01030313 30 OLN3N313 


SVYyLV VIDVH OOVNIOVINI 


Oouainnd 
OLNIWI13 ALN31N9IS 1 3NDIANI IND OYILNNS NN YOd NIJ 30 YOUVIYVA 13 VANLILSENS “SOLNIWI1I HIOVNV V8Vd a 


1+N OY3LNNMd 13 39805 N OY3LNNd 12 VBIYISI 'N OLNIN313 13 HVNIWITA VUVA SOLVO 30 
O01N3W313 30 
YOO VOI I1NIO1 


(O) 0831NMd O 083.1Nnd O Ouzinnd 


Q ova (1 — UJoLvO Qolvo (ova 


3 
30 O1N3N3 30 OLN3MW313 SOLN3W313 SOYLO Y 30 O1N3W313 30 OLN3N313 


31NV130 VIDWH OOVNIOVINZ OLNINVNO!DDIYI0 


q1'9 tanbiy 


a] 
€ 
z 
par] 
m 
z 
[e] 
m 


solva 30 
OLN3AN313 30 
YdOOVIOLILNIONI 


OLva 30 
OLN3NW313 


IVWILINAN OOVNIOVINI OLNIINWVNOID93810 


sigo la «dirección de uno o más elementos asociados. Estas direc- 
ciones se conocen también con el nombre de punteros. El encade- 
nado puede ser hacia adelante, hacia atrás o bien ambos a la vez. La 
eliminación de un elemento de la cadena se realiza mediante un salto 
del puntero hacia otra dirección, de tal forma que no existen aque- 
llos elementos que no están señalados por ningún puntero. 

Normalmente es necesario utilizar una rutina que elimine la in- 
formación inservible, ordene de nuevo los datos y borre fisicamente 
los elementos que hayan sido eliminados de la cadena. 

Nótese que varias cadenas independientes pueden enlazarse a tra- 
vés de los mismos datos (siempre que se destine espacio a sus 
punteros). 

El programa BASIC del Spectrum es un ejemplo de encadenado 
hacia adelante. Cada línea lleva un puntero que señala el inicio de 
la línea siguiente. El encadenado hacia adelante es fácil. Los saltos 
hacia atrás (como GOTO... un número de línea anterior) son siempre 
búsquedas desde el principio. 


LA COMPUTACION DE DIRECCIONES (E INSTRUCCIONES) 


Cuando se trabaja con una gran variedad de direcciones, existe 
a veces la tentación de construir la dirección (o instrucción), introdu- 
cirla directamente en el código y luego ejecutarla. 

Esta técnica no es recomendable, aunque puede ser tolerada, 
especialmente cuando son importantes la velocidad y el tamaño del 
programa. Yo mismo la utilizo y todo lo que podría decirle es: «Tenga 
cuidado». Recuerde que no puede usar esta técnica si el programa 
va a ser cargado en un módulo PROM o ROM. 

Notas: 


1 Utilicelo solamente en subrutinas, nunca en la linea principal 
de un programa. 

2 Al hacerlo en una subrutina, asegúrese de que conoce el 
efecto que producirá cada instrucción computada. Nunca 
compute una instrucción sin estar seguro de ello. 

3 Asegúrese de que conoce la forma en que el ensamblador va 
a ensamblar las instrucciones que vayan a ser modificadas 
pues algunas de ellas pueden ser ensambladas de diferentes 
formas, por ej.: LD HL,(NN) puede ser codificado len hexa- 
decimal): 2A-n1-n2 o bien ED-6B-n1-n2. (Los ejemplos en 


36 


código de este libro utilizan, a mi entender, un ensamblador 
que produce la más corta de dos formas equivalentes). 

Si usted etiqueta la instrucción, entonces la etiqueta tiene 
la dirección del primer byte. 

Recuerde, cuando documente o publique el código, prestar 
especial atención a lo que haya hecho. Otra persona con un 
ensamblador diferente puede producir un resultado distinto. 
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Capítulo 6 


LOS PRINCIPIOS ELEMENTALES 
INTRODUCCION 


Este capítulo trata de dos aspectos esenciales de la programación 
en código máquina: los tiempos de ejecución de un programa y el 
traspaso de información entre subrutinas. Intento también mostrar 
la forma en que se desarrollan las soluciones. Lamento no conocer 
la fórmula para transferir años de experiencia a un principiante. A me- 
dida que usted vaya ganando experiencia, mire hacia atrás y observe 
sus primeros esfuerzos. Cuanto más deba retroceder para ello, más 
habrá aprendido. 


EL BORRADO DE LA MEMORIA DE PANTALLA. 
UN ENSAYO EN TIEMPOS DE EJECUCION 


Se trata de una rutina elemental para borrar los 6144 bytes de 
la memoria de pantalla (buffer), la cual empieza en la dirección 16384, 
Mi primer intento fue éste: 


LD BC,6144 1 
LD HL,16384 2 
CLRE LD A,0 3 
LD (HD), A 4 
INC HL 3 
DEC BC 6 
LD A,B 7 
OR 0 8 
JR NZ,CLRE 9 


y funciona pero no queda muy elegante. 
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Nótese, sin embargo: 


a) Las líneas 7, 8 y 9 son un modo de comprobar que BC = 0 
ya que las operaciones DEC o INC sobre registros dobles no 
afectan a los señalizadores. 

bJ) Las instrucciones 3 y 4 pueden ser condensadas en una 
sola; olvidé que LD (HL),O también es una instrucción válida. 


El bucle 3/4 a 9 requiere 37 ciclos de reloj (ver figura 3.1) y se 
ejecuta 6144 veces, dando un total de 227.300 ciclos de reloj. ¿Pode- 
mos ganar rapidez? 


2.*? versión: 
LD HL,16384 1 
LD C,24 2 
LIN3 LD B,0 3 
LIN4 LD (HL),0 4 
INC HL 5 
DJINZ LIN4 6 
DEC 0 7 
JR NZ,LIN3 8 


El bucle interior, el mayor consumidor de tiempo en rutinas de 
este tipo, requiere 6144 x 29 = 178,000 ciclos de reloj, lo cual re- 
presenta un 78 % del tiempo exigido en el primer intento. 

Sin embargo, aparecen problemas cuando se intenta generalizar 
la solución ya que en este caso se cumple que 6144 = 24 * 256, 
pero en otros, ¿estarían B y C dispuestos correctamente para las 
operaciones DEC y JR? 

No hemos llegado todavía al final del camino. Lo que hemos 
hecho hasta ahora es cargar el mismo dato en distintas posiciones 
sucesivas. Supongamos ahora que primeramente borramos la posi- 
ción O, luego trasladamos la posición O a la posición 1, después la 
posición 1 a la posición 2, etc. Veamos qué ocurre utilizando, por 
ejemplo, la instrucción LDIR: 


LD HAL,16384 1 
LD DE,16385 2 
LD BC,6143 3 
LD (HLD),0 4 
LDIR 5 
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y todo es efectuado 6143 veces por el LDIR a 21 ciclos de reloj cada 
vez. El tiempo total es, por tanto, 129.000 ciclos, o sea el 57 % del 
primer intento. 

Si intentáramos cambiar los parámetros por variables y convertir 
esta subrutina en algo más universal, nos encontraríamos con todas 
las complejidades derivadas de sacar del juego a los parámetros, lo 
cual, hasta este momento, constituye un esfuerzo que no vale la 
pena realizar. 

Con un pequeño cambio en la línea 4 tenemos la súbrutina de 
borrado de pantalla CLRD («Clear Display») (Listado 6.7), en la que 
entramos con A = 0. 


LA PREPARACION DEL AREA DE ATRIBUTOS 


Podemos aprovechar gran parte de la rutina anterior, sólo cam- 
biando los valores de HL, DE y BC y dando un nuevo nombre a la 
rutina: SETA («Set Up Attributes»), la cual se utiliza con A = byte 
de atributo requerido. 


Listado 6.1 
1335 CLRD FUSH AF 
1340 FUSH BC 
1345 PUSH HL 
350 LD  HL,16384 
1355 LD DE,16383 
1360 LD  BC,6143 
1305 LD HL, A 
1370 LDIR 
1373 FOF HL 
1190 POP — BC 
183 FOF AF 
1390 RET 
Listado 6.2 


0743 WAIT —FUSH BC 


0746 PUSH DE 
0747 PUSH HL 
0748 LD BC,O 
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0749 LD DE,O 


0750 LD HL,0O 
0751 PUSH AF 
10752 LDIR 

0733 FOF. AF 
0754 FOF HL 
0735 FOP DE 
0756 FOF BC 
0737 RET 

0760 LWAIT  FUSH BC 
0761 LD E,O 
0762 LWAIU CALL WAITE 
0763 DINZ LWAIU 
0764 FOFP.| BC 
07065 RET 


No pretendo de ninguna manera asegurar que las rutinas de este 
libro tengan el mínimo de longitud o el mínimo tiempo de ejecución. 
Dos o tres personas en competición entre ellas deberían ser capaces 
de obtener importantes ahorros de tiempo y espacio en la mayoría 
de ellas. 


LA RUTINA DE ESPERA (WAIT) Y EL TRASPASO 
DE DATOS ENTRE SUBRUTINAS 


Cuando se utilizan programas en código máquina, ocurre fre- 
cuentemente que la presentación de datos en pantalla se produce de 
una forma más rápida de la que sería necesaria, ciertamente mucho 
más rápida de lo que puede ser asimilada. Necesitamos una rutina 
para retardar algo el proceso en estos casos. 

Volviendo de nuevo a la rutina CLDR, la operación LDIR es rela- 
tivamente lenta. Si la introdujéramos con HL = DE y BC = O, con- 
sumiría un total de 65536 x 21 ciclos de reloj, o sea, aproximadamen- 
te 0,4 segundos a una velocidad del reloj de 3,5 MHz. Por lo tanto, 
podemos utilizar la rutina WAIT (Lístados 6.2 y 6.3) procurando guar- 
dar los contenidos de los registros y recuperarlos después, para que 
la subrutina pueda ser llamada mediante la instrucción CALL WAIT 
desde cualquier punto sin temor a provocar una gran perturbación. 

Si deseamos una pausa aún más larga, podemos colocar la lama- 
da a WAIT dentro de otro bucle para obtener un tiempo de pausa 
de unos 60-70 segundos (rutina LWAIT). 
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Trabajando con la función WAIT, es interesante a veces que la 
rutina espere a que una tecla sea pulsada y, al mismo tiempo, pode- 
mos asignar misiones específicas a determinadas teclas (para prever 
su uso como entrada de datos, movimiento del cursor, juegos, etc.). 

La respuesta al «¿cómo?» se encuentra en la posición 23560 del 
área de variables del Spectrum, que contiene precisamente el código 
de la última tecla pulsada por el usuario. Recuerde que el sistema 
de interrupción del Spectrum está funcionando durante todo el tiem- 
po que sus rutinas están en marcha (usted está, realmente, traba- 
jando a tiempo compartido con él), por lo tanto, podemos utilizar 
un bucle que lea el contenido de la dirección 23560 y espere a que 
aparezca en ella el código que deseamos. 

Hay dos problemas a resolver: 


a) ¿Cómo formamos la lista? 
b) ¿Cómo le decimos a la rutina dónde se encuentra la lista? 


Listado 6.3 
oOsS20 FAUSE  —FUSH AF 
025 PUSH BC 
OSO PUSH DE 
0535 PUSH HL 
0540 PAUS1 LD A, (LASTK) 
0543 CP O 
0550 JR Z,PAUSI 
05503 LD (CHARF),A 
0560 LD A,0 
0563 LD (LASTRE) ,A 
0570 FOF HL 
0073 FOF BC 
0580 FOF AF 
0585 RET 
0590 CHAR —DEFBE O 
0593 LASTE EQU. 23360 
0600 IFEEY  FOF HL 
0005 FUSH HL 
0610 IF1 LD A, LASTE) 
Q6els3 CF 18) 
0620 JR Z,1F1 
QMa23 LD BE,A 
0630 NXBYT LD A, (HL) 
0633 CP o 
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0640 JR 2, IFEEY 


0645 CP B 

0650 JR Z ¿MATCH 

06353 LD DE,4 

0660 ADD HL,DE 

0663 JE NXBYT 

0670 MATCH —INC HL 

0673 FOFR. EC 

06480 LD E,A 

0685 L.D A,0 

00690 LD (LASTE),A 

0093 JE (HL) 
Comentario: 


La lista debe contener dos cosas: un código de carácter y una 
dirección a dónde dirigirse cuando el carácter buscado aparezca. 
Algunos ensambladores no permiten colocar una dirección dentro de 
una lista y la dirección puede entonces encontrarse tan lejos que 
no pueda utilizarse un salto relativo para acceder a ella. 

La lista debería tener esta forma: 


Código de carácter 
JP DIRECCION 


¿Qué hay respecto a la longitud de la lista? 


Podríamos determinar de antemano la longitud de la lista y colo- 
carla en un registro dentro de la subrutina pero si luego deseáramos 
añadir o eliminar elementos de la lista, debería modificarse también 
aquel registro. Una forma mejor sería sacrificar un código de carácter 
y utilizarlo para indicar el fin de la lista. Yo uso el O ya que es poco 
utilizado y se puede comprobar muy fácilmente. 

Ahora la lista aparecería de esta forma: 


Código 1 

JP DIRECCION 1 
Código 2 

JP DIRECCION 2 
nop 


La forma de la lista ha sido ya determinada. ¿Cómo le decimos 
ahora a la rutina dónde se encuentra la lista? 
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«dIFKEY» ESPERA A QUE UNA TECLA (ESPECIFICA) SEA PULSADA 


CARGA HL DE LA PILA (PARA OBTENER EL INICIO DE 
RESTAURA LA PILA LA LISTA DE PARAMETROS) 


ESPERA A QUE UNA 

TECLA SEA PULSADA 

(EL SISTEMA DEL LEE EL VALOR DE LASTK Y LO CARGA ENA (ULTIMA TECLA PULSADA) 
SPECTRUM INTERRUMPE 

ESTE BUCLE) 


B =A ALMACENA EL CARACTER EN B 


A= (HL) LEE EL CARACTER SENALADO POR HL 


EL 0 ES EL FINAL DE LOS PARAMETROS, POR TANTO, 
RETROCEDE Y SIGUE ESPERANDO 


EL CARACTER COINCIDE CON 


UN ELEMENTO DE LA LISTA COMPROBAR EL SIGUIENTE 


BYTE DE LA LISTA 
MOVER HL PARA QUE SEÑALE 


A LA INSTRUCCION JP 


O GALL DE LA LISTA POP PARA IMITAR LA ACCION DE RET EN LA PILA 


PONE LASTK A «0» (PARA EL SIGUIENTE ELEMENTO) 


EA PARA IR AL ELEMENTO DE LA LISTA QUE DEBE 


SER LA INSTRUCCION DE ABANDONAR LA LISTA 


SALIDA 


Diagrama de flujo 6.1 


Nos encontramos ahora con dos formas de pensar distintas: una 
dice que las listas y constantes parecidas deben mantenerse apar- 
tadas y la otra sostiene que, siempre que sea posible, las constantes 
deben alojarse razonablemente cerca de las rutinas que tengan que 
utilizarlas. 

Yo tiendo más hacia la. segunda forma de pensar ya que, de esta 
forma, las rutinas quedan más auto-documentadas. Si llamamos 
pues a la rutina «IFKEY» (detección de tecla pulsada) —que tiene la 
tendencia de ser auto-explicativa—, su utilización podría ser como 
sigue: 


IFKEY 
o eee 
AREAD 
e + ,, 
INCR 


La instrucción DEFB coloca un código de carácter en la rutina. 
La llamada a IFKEY detiene el programa hasta que la A mayúscula 
o bien el símbolo « + » sean pulsados. 

¿Cómo colocamos la lista en la rutina? 

La parte más alta de la pila contiene la dirección de retorno de 
la subrutina. Por lo tanto, señala el código de «A» en el ejemplo an- 
terior. Utilizamos POP para trasladarla desde la pila a un registro ade- 
cuado. Como usted ya habrá adivinado, la rutina IFKEY es llamada 
como una subrutina, pero no retorna al programa desde donde había 
sido llamada por medio de una instrucción RET (la cual requiere una 
operación POP suplementaria para compensar la acción PUSH inicial 
de la llamada CALL). 


SINOPSIS 
CLRD borra la pantalla. 
IFKEY espera hasta que una tecla de entre las que ha sido pre- 
j seleccionada sea pulsada. 
WAIT produce una pausa de aproximadamente 1/4 segundo. 
LWAIT produce una pausa de aproximadamente un minuto. 
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Capítulo 7 


LA PRESENTACION EN PANTALLA 


El único medio real que posee el Spectrum para comunicarse con 
su usuario es a través de la pantalla del televisor y, por lo tanto, es 
muy importante saber controlar esta forma de comunicación. Prime- 
ramente voy a presentar la necesaria rutina de cálculo, seguida de 
un programa de presentación de caracteres completos. 

Para presentar algo en pantalla, debemos antes conocer la forma 
de localizar un «pixel» determinado en la memoria de pantalla. Des- 
pués continuaremos con la escritura de caracteres ASCII, cadenas de 
texto, números en base octal y presentación de los contenidos de 
los registros. Al mismo tiempo, se introducirá la idea de las «varia- 
bles globales». 


LA COLOCACION DE UN «PIXEL» EN LA MEMORIA 
DE PANTALLA 


«La memoria de pantalla contiene una copia de la imagen del te- 
levisor...», como puede leerse en el Capítulo 24 del manual del Spec- 
trum. 

En todas estas rutinas, el origen de la pantalla se encuentra en 
la esquina superior izquierda. 

La pantalla se divide en tres secciones, cada una de ellas con 
ocho líneas de texto (64 líneas de «pixels»). Hay 256 «pixels» en cada 
fila, contenidos en 32 bytes de datos. Un bit puesto a «1» significa 
que se trata de un elemento de tinta («ink»). Los 32 bytes siguientes 
a los de la fila O contienen los datos de la fila 8, los 32 siguientes, los 
de la fila 16, y así sucesivamente para el primer tercio de la pantalla 
(ver figura 7. 1a). 
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De esto deducimos que la posición horizontal (o coordenada x) 
especifica un bit concreto dentro de los 256 posibles del bloque de 
32 bytes. 

El paso 1 consiste en colocar el valor x en un byte y utilizar los 
tres bits menos significativos para señalar un bit determinado dentro 
de un byte. Los cinco bits más significativos restantes indican con- 
cretamente a qué byte dentro del bloque de 32 se refiere. 

El paso 2 consiste en determinar a cuál de los 192 bloques de 
32 bytes debemos referirnos. Esto debe deducirse de la posición ver- 
tical (o coordenada y). En la figura 7.1a vemos que: 


La fila O utiliza el bloque O 
La fila 1 utiliza el bloque 8 
La fila 2 utiliza el bloque 16, etc. 


Esto puede que no aclare mucho el asunto, escrito de esta forma, 
pero recuerde que estamos tratando con un ordenador y que si pen- 
samos en binario o bien en octal podremos entendernos mucho 
mejor con él. 


Listado 7.1 

A. 0795 PLOT FUSH BC 
0900 FUSH DE 
0805 LD A,C 

b 0810 AND 7 
0815 ADD 1 
0820 LD E,JA 
0825 SRL CTC 

c 0830 SRL € 
0835 SEL € 
0840 LD A,B 
0845 AND 56 

d 0850 SLa A 
0855 SLA A 
0850 OR c 
0865 LD E,A 
0870 LD A,B 
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0875 AND 7 
0880 LD  D,A 
0885 LD  A,B 
; 0890 AND 192 
0895 SFL A 
0900 SEL A 
0905 SEL A 
0910 ADD D 
; 0915 ADD 54 
0920 LD  B,A 
0925 PUSH BC 
8 09730 POP. HL 
0935 LD  B,E 
0940 LD A,128 
h 0945 JR PLA 
0950 FPLB SRL A 
0955 FLA DJNZ PLB 
0950 POP DE 
; 0965 POP. BC 
0970 RET 


Repitamos ahora la relación de la figura 7. Ta en octal: 


La fila 00 utiliza el bloque 00 
La fila 01 utiliza el bloque 10 
La fila 02 utiliza el bloque 20 
La fila 10 utiliza el bloque 01 
La fila 11 utiliza el bloque 11 
La fila 20 utiliza el bloque 02 
La fila 21 utiliza el bloque 12 


y ¡se hizo la luz! 

Para las 64 filas de cada sección, todo lo que debemos hacer es 
invertir entre sí los dos digitos octales menos significativos del nú- 
mero de fila (que es la coordenada y) para tener indicado el bloque 
de 32 bytes de la sección. Los dos bits restantes del número de fila pue- 
den ser entonces 00, 01 ó 10, para seleccionar cuál de las tres sec- 
ciones queremos (11 no es un valor válido). 
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Ahora que sabemos lo que queremos hacer, podemos dibujar un 
diagrama de manipulación de bit (figura 7.71b). A partir de aquí, el 
programa es relativamente sencillo pero observe que se opera sola- 
mente con registros. Cuando una rutina debe utilizarse muy frecuen- 
temente, han de evitarse los accesos a la memoria ya que consumen 
la mitad más de tiempo que las operaciones directas con registros. 
Por otra parte, cuando deban escribirse caracteres en pantalla, esta 
rutina deberá llamarse ocho veces por cada carácter, o sea, 6144 ve- 
ces para llenar la pantalla. . 

Vamos ahora a por las formalidades y la descripción del programa: 


Rutina PLOT 

Condiciones de entrada: posición x en el registro C 
posición y en el registro B 

Condiciones de salida: BC igual que a la entrada 
DE igual que a la entrada 
HL dirección del byte en la memoria de 
pantalla 
A un bit puesto a «1» corresponde al bit en 
el byte direccionado por HL que se refiere 
al «pixel» definido por BC. 


Notas: 
1 El bit buscado en la memoria de pantalla está solamente in- 
dicado. 


2 No hay diagrama de flujo debido a que el programa presenta 
una estructura muy directa lexcepto para el desplazamiento 
del registro A). 


Esto es un ejemplo de la documentación que había mencionado 
anteriormente (en el Capítulo 2). Vamos ahora con la descripción del 
programa. 


SECCIÓN DESCRIPCIÓN 


a Guarda los registros en la pila. 

b  Enmascara los bits correspondientes al número de bit, añade una 
unidad y guarda el resultado en el registro E (ver ia sección (h) 
más abajo para la razón de esta suma). 

c  Desplaza el contenido del registro C tres bits a la derecha (esto 
forma el índice para indicar la posición dentro del bloque de 
32 bytes). 
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d  1.* parte de la inversión octal (56 decimal = 70 octal); coloca 
el contenido de B en A, lo enmascara con 56 decimal, lo mueve 
dos lugares a la izquierda y coloca estos tres bits en los tres bits 
más significativos del registro C (junto con los cinco bits que 
indican el byte dentro del bloque). 

e 2.* parte de la inversión octal; extracción de los tres bits menos 
significativos del registro B y almacenamiento de los mismos en 
el registro D. 192 en decimal es 128 + 64, que son los valores 
de los dos bits más significativos de un byte. Se extraen estos 
bits del registro B (indican qué sección se necesita), se mueven 
tres lugares hacia la derecha y luego se suman a los tres bits del 
registro D. 

f La memoria de pantalla empieza en la dirección 16384, que repre- 
senta el bit 6 (64 en decimal) en el byte más significativo de una 
dirección de dos bytes. Se añade 64 al total del registro A y se 
guarda el resultado en B. 


Nota: BC está ahora preparado con la dirección requerida 
(en el supuesto de que BC esté señalando un «pixel» válido 
para empezar). Queda todavía pendiente el problema de pre- 
parar el registro A. 


yg BC se transfiere a HL. 

h  B se carga con el contenido que E posee desde el paso (b). Hay 
una unidad más que en el cómputo de los tres bits menos signi- 
ficativos, ya que B se decrementa con la operación DJNZ antes 
del desplazamiento a la derecha. 

El bit 7 es puesto a 1 en A, y el par de instrucciones PLA/PLB 
desplazan A hacia la derecha hasta que B alcanza el valor cero. 
La salida se produce con A conteniendo un bit a «1» en el lugar 


correcto. 

j Recuperación de BC y DE; A y HL son preparados de la forma 
requerida. 

LA SALIDA 


Esta es, probablemente, la rutina más complicada de todo el libro. 
Se usa siempre que se deba presentar algo en pantalla y, a menos 
que usted entienda exactamente la forma en que trabaja, se encon- 
trará con algunas dificultades más adelante. 

El sistema del Spectrum permite al usuario de BASIC posicionar 
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el inicio de un texto usando AT, y saltar una línea cada vez que se 
ejecuta una nueva instrucción PRINT. En la próxima parte del pro- 
grama, donde vamos a imprimir caracteres de varias formas en la 
pantalla, el vértice superior izquierdo de cada carácter de 8 x 8 «pi- 
xels» se localiza en la pantalla con dos variables de 1 byte: LINE 
(línea) y COLM (columna). Sus posiciones relativas no deben ser 
alteradas ya que se utilizan de forma conjunta para preparar el re- 
gistro BC en el momento de llamar a PLOT para determinar qué bytes 
deben cargarse en la memoria de pantalla. 

Para simplificar, COLM se incrementa en ocho unidades y cuando 
se desborda y se convierte en 0, se incrementa LINE en ocho. Cuan- 
do LINE señala fuera de la pantalla, se ajusta a O y la pantalla co- 
mienza de nuevo en el vértice superior izquierdo de la misma. La 
rutina NPAGE (nueva página) pone ambas variables a O y llama a la 
rutina de borrado de pantalla CLRD. 


Listado 7.2(1) 


0973 PRIN FUSH AF 


0980 PUSH BC 
0985 FUSH DE 
0990 PUSH HL 
0995 SUB 32 
1000 JE —M,PXL 
1005 SUB 96 
1010 JP O P,PXL 
1015 ADD 96 
1020 PUSH AF 
1025 LD BC,(COLM) 
1030 CALL PLOT 
1035 EX — DE,HL 
1040 POF.- HL 
1045 LD  L,H 
1050 LD  H,0 
1055 ADD  HL,HL 
1060 ADD  HL,HL 
1065 ADD HL,HL 
1070 LD  BC,15616 
1075 ADD HL,BC 
1080 LD  B,8 


1085 RPRT LD  A,(HL) 
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1090 INC HL 


1095 EX DE, HL 
1100 LD (HL) ,A 
1105 INC H 

1110 EX DE, HL 
1115 DINZ RPRT 
1120 LD A, (COLM) 
1125 ADD 8 

1130 LD (COLM),A 
11:35 JR NZ,FXL 
1140 LD A, (LINE) 
1145 ADD 8 

1150 LD (LINE>),A 
1155 ADD 64 

1160 JR NZ,FPXL 
1165 LD Ayo 

1170 LD (COLMD),A 
1175 LD (LINE>,A 
1180 FXL POP HL 

1195 FOP. DE 

1190 POP EC 

1195 FOF AF 

1200 RET 


1205 COLM NOP 
1210 LINE NOF 


Listado 7.2(2) 


1393 NPAGE CALL CLRD 


1400 PUSH AF 
1405 LD  A,0 

1410 LD (LINE),A 
1415 LD (COLM),A 
1420 POP AF 

1425 RET 


PRIN 


Esta rutina hace aparecer en pantalla un solo carácter en ta locali- 
zación definida por LINE y COLM; también ajusta los valores de LINE 
y COLM para que señalen a la posición del próximo carácter. 
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A:A +96 
ALMACENA AF EN LA PILA 
CARGA BC CON «LINE» Y «COLM» 


ENCUENTRA LA DIRECCION EN LA 
/, AA IHAIIIIISV ALMACENA LA DIRECCION DEL BYTE EN DE. 
RECUPERA A DE LA PILA 
Y HL=A EXFATES 
HLs HL +8 2x+2X=4x 


HL=> HL +inicIoODELA  4Xx*4Xx=8X 
I TABLA DE DATOS DE LA ROM 
B-8 


> BYTE IT A 
INCREMENTA HL id OS 


NOA DE=HE ESCRIBE LA FILA EN LA MEMORIA 
LIA AIAAIA - + DE PANTALLA (BUFFER) 

H = H+1 INCREMENTA LA DIRECCION EN LA 
Me a DE—HL MEMORIA DE PANTALLA(BUFFER) 


< B-1 
(TRASLADO AL SIGUIENTE BLOQUE 
DE 32 BYTES- VER PLOT) 


7 
o 
7 
Y, 
a 


COLM=COLM+8 


LINE = LINE +1 


LINE 2 $ 
CoLM=4H 


RESTAURA LOS REGISTROS 


PRIN 


Diagrama de flujo 7.1 


Esta rutina utiliza la tabla de caracteres contenida en la ROM del 
Spectrum, formada por matrices de bits, con ocho bytes por carácter 
para todos los códigos ASCII desde el 32 hasta el 127 inclusivos. 
Empieza en la dirección 15616 de la ROM y cada bloque de ocho bytes 
está dispuesto de la forma indicada por el manual del Spectrum, Ca- 
pítulo 14. 

Para imprimir un carácter en la pantalla, es necesario cargar los 
ocho bytes apropiados en la memoria de pantalla y ajustar los pun- 
teros LINE/COLM de forma que queden preparados para la impre- 
sión del siguiente carácter. 


COMENTARIO 


Esto funciona siempre que los punteros LINE/COLM no indiquen 
posiciones intermedias entre dos bytes o presenten segmentos de 
los límites de la pantalla. No veo ninguna razón para complicar el pro- 
blema, pero de todas formas véase el Capítulo 8 para la forma de 
tratar el problema general. 

La rutina PRIN se inicializa con el código ASCII del carácter en 
el registro A y se comprueba primeramente si es un carácter 
«PRINTable» o no lo es. Si no lo es, se omite y no es substituido 
por espacios. Se resta 32 del código ASCI! para posicionar el puntero 
de los bytes de la ROM y se guarda A en la pila. Se utiliza luego 
PLOT para determinar la dirección del byte de la memoria de pan- 
talla que ha de utilizarse para la primera fila de «pixels». LINE y 
COLM, guardados como bytes adyacentes, son recuperados conjun- 
tamente con la instrucción LD BC.... 

La dirección del byte que PLOT haya dado como resultado se 
almacena en DE y el código de carácter recuperado, multiplicado 
por 8 (8 bytes por carácter), y sumado a la dirección de inicio de la 
tabla de la ROM para indicar los bytes apropiados. Esta es la direc- 
ción que debe modificarse cuando usted desee utilizar su propia 
tabla de bytes de definición de caracteres. 

Al registro B se le da el valor 8 para contar los 8 bytes que deben 
ser transferidos desde la ROM. Cada byte que se traslada a la me- 
moria de pantalla produce además un incremento de 256 en el pun- 
tero para que éste señale al próximo bloque de 32 bytes de la pantalla 
donde debe colocarse el nuevo byte procedente de la ROM. Esto 
se lleva a cabo incrementando el registro H del registro doble HL en 
una unidad cuando contiene el dato apropiado. El bucle de trans- 
ferencia en RPTR mantiene los punteros en HL y DE, intercambián- 
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dolos cuando es necesario. Comienza con HL señalando a la ROM 
y DE a la memoria de pantalla. 

Una vez que el carácter ya ha sido escrito en la memoria de pan- 
talla, COLM se incrementa en 8 (8 «pixels» forman una fila del ca- 
rácter) para señalar al próximo carácter en la línea. Si la cuenta su- 
pera el máximo y se convierte en 0, se incrementa LINE en 8 (8 filas 
de «pixels» forman un carácter) y el resultado se compara con 192 
para detectar si se ha llegado ya al final de la pantalla. Si se ha lle- 
gado a él, LINE y COLM son puestos ambos a cero. La rutina efectúa 
su salida después de recuperar los registros (excepto A) en PXL. 

Esta rutina no trabajará correctamente si en algún momento LINE 
o COLM adoptan un valor que no sea múltiplo de 8. Un primer ejer- 
cicio para usted podría ser modificarla para asegurar que siempre 
sus contenidos sean múltiplos de 8. 


PTEX 


Imprimir textos («Print Text») es sólo una cuestión de alimentar 
PRIN con una secuencia de caracteres. Se consigue colocando el 
texto que debe ser impreso en los bytes inmediatamente siguientes 
a la llamada de la rutina y terminando la secuencia con un byte que 
contenga el valor cero. Esto funciona perfectamente bien con textos 
de una longitud fija, compuestos o asignados durante el proceso de 
ensamblaje pero será necesaria una versión modificada para trabajar 
con textos contenidos en algún otro lugar de dirección conocida. Le 
recomiendo encarecidamente, sin embargo, que utilice un byte con 
código cero para marcar el final de aquel texto ya que es un carácter 
que no puede ser impreso y es muy fácil su comprobación. 


Listado 7.3(1) 


1280 PTEX POP HL 
1285 FXB LD A, (HL) 


1290 CF 0] 

1293 JR NZ,¿FPXA 
1.300 JP (HU) 
1305 PXA FUSH HL 
1310 LD A, (HL) 
1315 CALL PRIN 
520 POP. HL 
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1325 INC — HL 
1330 JR PXR 


Listado 7.3(2) 


0700 SRHL* SRL  L 


0703 SRL H 
0710 RET NC 
0715 SET 7,L 
0720 RET 

0723 RHL3S CALL SRHL+$ 
0730 CALL SRHL$ 
0735 CALL SRHL+ 
0740 RET 


Vimos en IFKEY cómo se puede utilizar la dirección de retorno de 
la subrutina contenida en lo alto de la pila para acceder a los datos 
inmediatamente posteriores a la llamada a la subrutina. Utilizamos 
aquí el mismo sistema para acceder al primer carácter y a los si- 
guientes de la cadena de texto que debe ser escrita. En PXB, con HL 
señalando un byte, es cargado en el registro A y comparado con 
cero. Si es el marcador de fin de texto, entonces HL señalará una 
instrucción NOP ya que la instrucción JP(HL) devuelve el control al 
programa principal. Si no es así, en PXA, A contendrá un carácter 
ASCII que ha de ser presentado por PRIN. Mientras PRIN está tra- 
bajando, el puntero de texto está guardado en la pila para que pueda 
recuperarse e incrementarse. Se efectúa luego un retorno a PXB para 
tomar el próximo carácter o bien el marcador de fin de texto. 

Ahora vienen dos rutinas primitivas para efectuar el desplazamien- 
to a la derecha de dos bytes (16 bits). Hay un método mejor, más 
elegante y más rápido para desplazar a la derecha. 


SRHL 


Las dos operaciones SRL desplazan cada registro un bit a la 
derecha. La segunda, en el byte más significativo, pondrá a «1» el 
señalizador de acarreo si se «pierde» algún bit del final o bien a «O» 
si no se pierde ninguno. La instrucción RET NC produce el retorno 
de la rutina cuando no debe hacerse ninguna corrección en el re- 
gistro L; en otro caso, el bit perdido se substituye por el bit más sig- 
nificativo del registro L con la instrucción SET 7,L. 
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z'£ ofíny ep ewesbeig 


1H VININIHIN) 


1H VENV1SIY 


Wld VU N3 1H VNJIOVIAN TW 


1H YOd VAVININI NOJDIIYIO VI V OLIVS 


01X31 30 TVNI 30 HOOVIIONI 


1H 40d OOVIVNIS YILIVEVI 13 NOS Y VOYVO 


VlUd Y1 30 1H VOHVO 


RHL3 


Esta efectúa tres desplazamientos a la derecha juntos dividiendo, 
por lo tanto, el contenido del registro doble HL por 8, que es lo que 
se precisa cuando se imprimen números octales de la forma des- 
crita en PRT8. 


PRT3 


Ahora ya podemos escribir textos pero, ¿qué hay de los números? 
Bien, existen una gran cantidad de rutinas complicadas para este fin 
en muchos otros sitios. Esta solamente va a escribir un número bi- 
nario de 16 bits contenido en HL como un número octal de 6 dígitos. 
Esto se hace, en este caso, sin complicaciones ni signos. Es algo 
tan sencillo que podemos utilizarlo después como un método de eli- 
minación de errores en los programas. 

Hay dos trucos en ella: 


1) Los caracteres ASCII de los números están dispuestos en for- 
ma secuencial a partir del código 48 (decimal) en adelante. Por tanto, 
el carácter octal requerido se obtiene sumando 48 a los tres bits bi- 
narios del valor en cuestión. 

2) Utilizamos la rutina PTEX descrita anteriormente para presen- 
tar los datos y sobreescribir lo que se haya presentado anteriormente. 


Al principio, se guardan todos los registros en la pila, con DE 
señalando al byte en el que el dígito menos significativo debe car- 
garse para ser impreso por PTEX. B toma el valor de 6 ya que sólo 
deben producirse 6 bytes. En PRU3, los tres bits menos significa- 
tivos de HL se obtienen mediante el enmascarado y se calcula el 
código de carácter con la adición de valor 48. Esto se guarda en la po- 
sición indicada por DE, DE se decrementa y HL se desplaza tres bits 
a la derecha para dar paso al siguiente grupo octal si es que B no 
llega a cero. Si B llega a O, significa entonces que los seis bytes ya 
han sido cargados en lo alto del espacio reservado «hgfedc» del lis- 
tado. P8Z1 forma un par de espacios para completar la salida de los 
seis caracteres presentados por la llamada a PTEX, después de la cual 
todos los registros son restaurados a sus valores de entrada y la 
rutina efectúa su salida. 

PRT8 puede ser, por tanto, insertado en cualquier lugar de un 
programa donde se necesite comprobar el contenido de HL. 
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Listado 7.4(1) 


1430 
1435 
1440 
1443 
1450 
1455 
1460 
1465 
1470 
1475 
1480 
1485 
1490 
1495 
1300 
1305 
1510 
1515 
1520 
1525 
13.30 
1533 


Listado 7.4(2) 
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3440 


5445 
5450 
5455 
5460 
3465 
5470 
5475 
5480 
5485 
5490 
5495 
5500 
5505 


PRT8 


PRU3 


Pa8zi 


FRTOW 


PRQWX 


DE,P8Z1-1 
B,6 
A,L 


"cdefgh" 


GUARDA TODOS LOS REGISTROS 
AJUSTA DE PARA QUE SENALE AL CARACTER 
DEL DIGITO MENOS SIGNIFICATIVO. 
CARGA B DE FORMA QUE CUENTE 

6 CARACTERES OCTALES 


CARGA A CON LOS 3 BITS 
MENOS SIGNIFICATIVOS DE L. 
LE SUMA EL CODIGO DE O. 
ALMACENA EL CARACTER ASCII 
EN (DE). DE=DE--1. DESPLAZA HL 


3 BITS ALA DERECHA. B=B--1. 


RESTAURA TODOS LOS REGISTROS 


Diagrama de flujo 7.3 


RPORT 


En el proceso de eliminación de errores en los programas, aparece 
frecuentemente la necesidad de ver en la pantalla los contenidos de 
todos los registros. Esto es exactamente lo que hace la próxima 
rutina, mostrando además la dirección de retorno mediante PRT8. 
No hay diagrama de flujo por tener el programa una estructura muy 
directa. 

Hay tres puntos a tener en cuenta: 


1) El valor del puntero de pila, indicado por «$= » puede indi- 
car si el programa se está desequilibrando debido a que los POPs 
y PUSHs no están reunidos. 

2) La dirección de retorno de la llamada CALL RPORT, indicada 
por «£», permite distinguir entre varias salidas debidas a distintos 
puntos de llamada. 

3) Los datos se cargan en HL para imprimir en pantalla la direc- 
ción de retorno. Se podría hacer de un modo mejor y más elegante 
computando la instrucción, como se demostrará más adelante en 
MOVER y VAR$1, por ejemplo. 


Listado 7.5 


1540 RPORT LD (SFE) ,SP 


1545 PUSH AF 

1350 FUSH BC 

1555 PUSH DE 

1560 FUSH HL 

1565 LD (HL), HL 
1370 LD (DE*$) , DE 
1575 LD (BC+) ¿BC 
1580 PUSH AF 

1585 FOF HL 

1390 LD (AF$),HL 
1595 CALL FTEX 
16500 DEFM "AF=" 
1605 NOP 

1610 LD HL, (CAFE) 
1613 CALL FRT8 
1620 CALL FTEX 
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10625 
1630 
1035 
1640 
1045 
1450 
1055 
1660 
1565 
1570 
15873 
16480 
1685 
1690 
1095 
1700 
1705 
1710 
1715 
1720 
1725 
1730 
17:35 
1740 
1745 
17530 
1755 
1760 
1765 
1770 
1773 
17830 
1785 
1790 
1795 
1800 
1805 
1910 
1815 


AF 
HL$ 
DES 
BCS 
sP+ 


" BC= Y) 


HL, (EC$) 
PRTS 
FTEX 

"“ HL= . 


HL, (HLE) 
PRTS 
PTEX 

"” DE= 5” 


HL, (DES) 
PRTO 
FTEX 
“a += ." 


HL, (SFE) 
PRTS 
PTEX 
" £= te 


HL, (SFE) 
E, (HL) 
HL 
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1236 867831000003165%4 17410208 2132423281728 14% 3 — PRIMEROS 6184 


o [ IsIriofrJe] [mlaTe[ 1+]e]e]m] [2[2Is1218e] [Tol 3 BYTES DE 
(MAPA DE MEMORIA DE 22528 A 65535) LA MEMORIA 


TRES FILAS 
“— PARA ATRIBUTOS 


PROGRAMAS EN BASIC Ss VARIABLES DEL 
SISTEMA, MEMORIA 
SUS VARIABLES INTERMEDIA DE LA 


IMPRESORA, ETC. 


ESTOS 48 K DE 
LA EXPANSION ES PIXELS, REPRESENTAN 
PARA ABAJO, LOS ULTIMOS 48 K 
HACIA EL DE MEMORIA. 
FINAL ESTARÁN EN 
BLANCO SI SE TRATA 
| DE UN SPECTRUM 
DE 16K. 


SU PROGRAMA EN CODIGO MAQUINA DEBERIA ESTAR POR AQUI AREA USUAL DE 
UDG (GRAFICOS 
DEFINIDOS POR 


AREAS DE LA PILA DEL SPECTRUM 4 El USUARIO) 
SE EXPANDEN HACIA ARRI 
j BA GRAFICOS DEFINIDOS POR EL USUARIO (NORMALMENTE) 

UNA FILA DE CARACTERES DE LA PANTALLA 


18 8 FILAS POR 
— CADA LINEA DE 
CARACTERES 
256 «PIXELS» POR FILA. 2048 


CADA «PIXEL» REPRESENTA «PIXELS» POR LINEA DE CARACTERES. 
UN BYTE DE LA MEMORIA 


ER ES 


EL «PIXEL» SERA DEL COLOR DE 
«PAPER» Si EL BYTE ES CERO 

O EL CARACTER ASCII DEL ESPACIO 
EN CUALQUIER OTRO CASO, 

EL «PIXEL» SERA NEGRO. 


Figura 7.2 


MAPS 


Vamos a colocar ahora todos los ladrillos juntos para construir 
algo útil: una rutina para mostrar el espacio libre de la memoria. 

Tenemos disponibles 6144 bytes de la memoria de pantalla (buf- 
fer) que contienen 48 K de «pixels». Por tanto, podemos asignar 
cada byte de la RAM a un «pixel» (ignorando la ROM), colocando 
un «pixel» negro donde el byte no sea nulo ni corresponda a un ca- 
rácter de espacio ASCII, o bien dejándolo del color del fondo («pa- 
per») en los casos restantes. 


COMENTARIO 


Las llamadas a NPAGE y a PTEX borran la pantalla y preparan la 
salida de la descripción a las dos líneas superiores de la pantalla. 
Las tres líneas de texto superiores o 24 filas de «pixels» se refieren 
a la memoria de pantalla (buffer) y, como ya conocemos lo que hay 
allí, su contenido no será mostrado por el programa. 

Desde la etiqueta NXF1 a la NXF3, la rutina prepara el área de 
atributos para que cada fila de ocho lineas de «pixels» sea de un color 
distinto al de las filas inmediatas. Recuerde que cada fila representa 
a8* 256 = 2048 bytes de la RAM y, si todo fuera del mismo color, 
sería muy difícil la localización de una zona determinada de la me- 
moria. 

En NXF3 se carga HL con la dirección de inicio de la RAM y BC se 
inicializa para que señale a la primera dirección después de la me- 
moria de pantalla (buffer). La suma de HL y BC es la dirección del 
byte que se está examinando y cuando sobrepasa los 16 bits y vuelve 
a cero, el señalizador de acarreo se levantará provocando la salida 
por la instrucción RET C pues toda la RAM habrá sido ya examinada. 
El byte direccionado por la suma, en HL, se carga en el registro A 
para comprobar si se trata de un código O o bien 32. En estos dos 
casos, se salta la rutina PLOT y el «pixel» se deja del mismo color que 
el fondo («paper»). 

Ya que el recuento de bytes se efectúa desde el principio de la 
RAM, el byte «más bajo» de BC puede especificar la coordenada X 
del «pixel» y el byte «más alto», la fila del «pixel». Casualmente, este 
es el modo en que han de especificarse los datos para introducirlos 
en la rutina PLOT. 

El «pixel» de tinta («ink») se prepara aplicando la función OR en 
el bit del registro A, después de la llamada a PLOT, con la dirección 
especificada en HL. El programa retorna luego a NXF con un incre- 
mento de BC para examinar el siguiente byte. 
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BORRADO DE LA PANTALLA 


TITULO DE LA PRESENTACION 


HL= DIRECCION DE INICIO DEL AREA DE ATRIBUTOS. 


C=24 24 LINEAS DE 32 CARACTERES 
DAR VALOR A LOS ATRIBUTOS 
PARA EL AREA DE PANTALLA 


DE = DIRECCION DE INICIO DE LA LISTA 
DE CODIGOS DE ATRIBUTOS 


A= ATRIBUTO AL CUAL SENALA DE 


DE=0€ + 1 (SIGUIENTE ATRIBUTO) 
B=32 (32 CARACTERES POR LINEA) 


(ESCRIBE UN BYTE) 


BC = 614-4- SALTA AL FIN DE LA 
MEMORIA DE PANTALLA 


HL= 16384. SE SALTA LA ROM 
HL= HL+BC 


EXPLORACION A TRAVES ACARREO 
DE LA MEMORIA ALMACENA BO ACTIVADO 
DIRECCIONABLE A= (HL) LEE EL 


POSTERIOR A LA BYTE DELA MEMORIA 
MEMORIA DE 


da DEJAR EL COLOR 
DEL PAPEL («PAPER») 
SI EL BYTE ES CERO 


O EL CARACTER ASCII 
TRAZAR UN «PIXEL» DEL ESPACIO 


DE TINTA («INK») 


Lo 
| 


| 
| 
| 
y RESTAURAR E INCREMENTAR BC 


Diagrama de flujo 7.4 


SINOPSIS 


PLOT realiza la misma función que la instrucción PLOT del Spec- 
trum. Es la base de toda presentación en pantalla. Forma también la 
parte básica de la rutina de animación del Capítulo 8 y el programa 
de dibujo del Capítulo 13. 

PRIN imprime un carácter con un código ASCI! en el registro A, 
en la siguiente posición disponible. 

NPAGE borra la pantalla y prepara PRIN para que empiece en el 
principio de la primera línea. 

PTEX utiliza PRIN para imprimir el texto que sigue a su llamada. (El 
texto debe terminar con un byte de valor cero.) 

PRTS8 utiliza PRIN para mostrar el contenido de HL como un nú- 
mero octal. 

PRT8W utiliza PRT8 con una pausa de espera hasta que la tecla 
«mp» sea pulsada. 

RPORT muestra los contenidos de los registros (excepto IX e IY). 

MAP$ muestra la ocupación de memoria. 


Listado 7.6 


1820 MAPS CALL NPAGE 


1825 CALL PTEX 

1830 DEFM " ALMACENA MAPADE MEMORIA 
DE 22528 A 65535 " 

1835 NOP 

1840 LD  HL,22528 

1845 LD  C,24 


1850 NXF1 LD DE,LIST 
1955 NXF2 LD A, (DE) 


1860 CP.—-.0 

1845 JR Z,NXF1 
1870 INC DE 

1875 LD  B,32 
1880 NXFO LD  (HL),A 
1885 INC HL 

1890 DJNZ NXFO 
1895 DEC C 

1900 JR NZ,¿NXFZ. 
1905 LD  BC,6144 


1910 NXF3 LD HL,16:384 
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19153 
1920 
1923 
1930 
1935 
1940 
1943 
1950 
1955 
1960 
1965 
1970 
1975 
1980 
1285 
1990 
1995 
2000 
2005 
2010 


NXF4 


LIST 


Z ,NXF4 
32 

Z ,NXF4 
PLOT 
E, (HL) 
B 

(HL) ,A 
BC 

BC 
NXF3 
6 

104 
112 
120 


Capítulo 8 


LA ANIMACION 


GCELL 


El objeto de esta rutina es el de presentar una secuencia rápida 
de imágenes en un punto móvil de la pantalla. Estas imágenes están 
dibujadas en una caja o celda. Cuanto mayor sea la celda (hasta 
2040 «pixels») más tardará la rutina. La comunicación de la rutina 
con el programa BASIC es compleja pero puede ser gestionada sin 
utilizar una técnica fundamentalmente nueva y más general (ver Ca- 
pitulo 9). 


LA COMUNICACION CON EL BASIC 


El usuario debe cargar en los bytes 23675/6 (UDG = Gráfico Defi- 
nido por el Usuario) la dirección del primer byte del bloque de datos 
definido más abajo que va a ser utilizado por la rutina. Puede haber 
varios bloques como éste y pueden conectarse entre sí alterando el 
valor de la variable UDG. 


BYTE DESCRIPCION 

0 posición horizontal de la celda X 

1 posición vertical de la celda Y 

2 señalizadores de control y número del cuadro si- 
guiente 

3 BCR : número de bits por fila de la celda (1 a 255) 

4 BCC : número de bits por columna de la celda (1 a 
255) 

5 WPC : número de palabras por celda (1 a 255) 

6 bytes de control de la secuencia de cuadros. Los 


cuatro bits menos significativos del byte n.* 2 se- 
ñalan a uno de estos 15 bytes. Los cuatro bits me- 
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nos significativos de este byte definen qué celda 
debe dibujarse 


20 byte para ser presentado 
21 byte con valor cero 
22 primer byte de datos de la celda 1. Hay WPC hytes 


en esta y en las otras celdas 
22 + WPC primer byte de datos de la celda 2 
22 + 2 x WPC primer byte de datos de la celda 3 
y así sucesivamente para las demás celdas —hasta 15— que se pre- 
cisen. 


Descripción de los señalizadores de control y del número del si- 
guiente cuadro — byte número 2: 


N.”* DE BIT. DESCRIPCION 


7 Bit más significativo. Si está a «1», la rutina sale sin 
hacer nada. 
6 Puesto a «1» por la misma rutina si alguna parte de la 


celda que se está dibujando sale fuera de la zona de 
pantalla permitida. Este bit debería ser monitorizado 
por el programa del usuario. 

5y4 No utilizados. 

3a0 Si son cero, la rutina retorna. 
Si no son cero, su contenido señala a un byte de con- 
trol de la secuencia de cuadros que identifica la próxi- 
ma celda que debe ser trazada. (Si se suma 5 al valor, 
el resultado dará de 6 a 20, que es el número de byte 
relativo al inicio del bloque, que contiene el identifica- 
dor de la celda.) La rutina incrementa este puntero o 
lo restaura al valor 1 cuando se encuentra el final de la 
secuencia y reconoce al byte con valor cero que lo in- 
dica. Esto puede ser siempre sobreescrito utilizando el 
byte (UDG) + 2. 


DATOS DE LA CELDA 


Cada fila de «pixels», dentro de una celda de gráficos, empieza en 
el bit más significativo en una secuencia de bytes. Hay BCR/8 bytes 
en esta secuencia, y se ignoran los bits sobrantes. Hay BCC secuen- 
cias, una para cada fila de «pixels» de la celda. Cada bit puesto a «1» 
genera un «pixel» de tinta («ink») pero recuerde que el área de atri- 
butos debe ser puesta en orden en un ejercicio separado. 
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Ssvyli L6l 


yUdM SILA NI 
498 S.18 
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t SVyYIV IVA 


998 SUI 


Ne GCELL 


ALMACENA SP PARA LA SALIDA POR ERROR. 
COPIA LOS DATOS DE CONTROL DEL PROGRAMA 
TM1 = DIRECCION DE LA PRIMERA CELDA 


(NINGUNA CELDA ESPECIFICADA) 


A=BCR (BITS POR FILA DE LA CELDA). 
CARGA WPR CON LOS BYTES POR 


E ON DE LA CELDA 


AJUSTA HL PARA QUE SEÑALE A LA LISTA DE SECUENCIAS, B= NUMERO DE CELDA. TM2= PUNTERO DE LA LISTA 
DE SECUENCIAS SEÑALANDO EL ELEMENTO DEL SUJETO. DE= PALABRAS POR CELDA. HL= DIRECCION 
DE LA PRIMERA CELDA 


RETROCEDE PARA LOCALIZAR EL 
INICIO DE LA CELDA DEL SUJETO 


RETROCEDE UNA CELDA, CELLZ = HL 
(INICIO DE LA CELDA DEL SUJETO) 


A= SIGUIENTE SECUENCIA DE ENTRADA EN LA CELDA 


NO cl FIN DE LA TABLA 


(cea) Axl DE SECUENCIAS 


ALMACENA LA SECUENCIA SIGUIENTE DE LA TABLA DE NUMEROS EN 


O) PROGRAMA (BYTE DE SEÑALIZADOR) 


FADDR= DIRECCION DEL BYTE DE SEÑALIZADOR) 


NUMERO DE FILAS DE LA CELDA 
sr Eco (REMANENTES) 


TODAS LAS FILAS DELA 
CELDA ESTAN TRAZADAS 


BC = LINEA + PUNTERO DE COLUMNA PARA ESTA FILA 


DETERMINA LA DIRECCION EN LA MEMORIA DE PANTALLA 
PARA EL PRIMER BYTE DE ESTOS DATOS DE FILA 


A= POSICION HORIZONTAL DEL «PIXEL» 
A= Az y (DESPLAZAMIENTO A LA DERECHA REQUERIDO POR LOS DATOS DE LA CELDA) 
BC= DIRECCION DE INICIO DE LA FILA DE DATOS 


| SEBIT E CARGA UNA FILA DE DATOS DE LA CELDA EN LA MEMORIA DE PANTALLA 


CELLZ=CELLZ +WPR SEÑALA EL INICIO DE LA FILA SIGUIENTE 
INCREMENTA LA FILA DE PANTALLA 


Diagrama de flujo 8.1 


DESCRIPCION DE GCELL 

El puntero de pila SP se guarda en PANIC. Por tanto, puede re- 
cuperarse en cualquier momento, permitiendo una salida digna a la 
rutina cuando, por ejemplo, ésta intente escribir más allá del área de 
memoria de pantalla permitida. Los primeros 21 bytes de los datos 
de control son copiados en la rutina y TM1 se iguala a la dirección de 
la primera celda gráfica. El byte 2, que se utiliza como byte señalizador, 
se comprueba y la rutina termina si el bit 7 está a «1» o bien si los bits 3 
a 0 indican que ninguna celda está especificada. En otro caso, los 
últimos cuatro bits indican cuál de los bytes, en la tabla de secuen- 
cias, contiene el número de celda requerido. LOA a L2 y la opera- 
ción DJNZ recogen este número de celda y colocan en CELLZ la 
dirección inicial de los datos de la celda. 

En L4A — L4 se calcula el puntero de la próxima tabla de secuen- 
cias y se guarda en el byte n.? 2 de la tabla de comunicación con 
BASIC, donde queda preparado para ser utilizado en la próxima lla- 
mada a la rutina. En FADDR se coloca la dirección de este byte para 
que pueda utilizarla SEBIT si es necesario. 


Listado 8.1 


2013 GCELL LD (PANIC) ¿SF 


2020 UDG EQU. 23675 
2025 LD HL, CUDG) 
2030 LD DE, XY 
2035 LD BC, EELLZ-XY-1 
2040 LDIR 

2045 LD (TH, HL 
2050 LD A, (FLAG) 
2055 BIT 7,A 

2060 RET  NZ 

206053 AND 15 

ZO07O LD (FLAG),A 
20739 SUBE 1 

2080 RETO OM 

2085 LD A, (BCR) 
2090 SEL A 

2095 SEL A 

2100 SEAL A 

2105 LO (WPR3,A 
2110 LD A, CECRK) 
2115 AND 7 


75 
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¿2120 
2125 
2130 
2135 
2140 
2145 
21530 
2155 
2160 
21653 
2170 
2175 
2180 
2185 
2190 
2195 
2200 
2205 
2210 
2215 
2220 


a 
SON 
RI | 


2230 


223s 
2240 
2245 
2250 
2255 
2200 
2245 
2270 
2275 
2280 
2295 
2290 
2295 
2300 
2305 
2310 
2315 
oda] 


220 


LOA 


Le 


L4A 


L4 
LXXx 


CALL 


Z,LOA 
A, (WER) 
1 
(WER),A 
HL, FSEQ-1 
A, (FLAG) 
EJO 

C,A 

HL, BC 

E, (HL) 
(TM2) ,HL 
A, (WEC) 
EJA 

D,O 

HL, (TM1) 
HL. , DE 

La 

A 

HL. , DE 
(CÉLLZ),HL 
HL, (TM2) 
HL 

A, (HL) 
15 

NZ ,L4A 
A,1 

HL, (UDG) 
HL. 

HL 
(HL), A 
(FADDR) ,HL 
A, (BCC) 
1 


M 
(BCC),A 
BC, (XY) 
FLOT 

A, (XY) 

7 

BC, (CELLZ) 
SEBIT 


23230 LD HL, (CELL Z) 


2330 LD BC, (WPR) 
2335 ADD  HL,BC 

2340 LD (CELLZ),HL 
2345 LD A, (XY+1) 
2350 ADD 1 

2355 LD (XY+1),A 
2360 JR O LXX 

2365 PANIC  DEFW O 

2370 XY DEFW 0 


23739 FLAG DEFBE 0 
2380 BCR DEFB 0 
2389 BCC DEFB 0 
2390 WFC DEFB 0 
2393 FSEO DEFM "cD.N.Laine 1983" 
2400 NOFP 
2403 CELLZ DEFW 0 
2410 WER DEFW 0 
2415 TM1 DEFW 0 
2420 TM2 DEFW 0 
2423 FADDR —DEFW O 


TRAZADO DE LA CELDA (DE LXX EN ADELANTE) 


A la entrada, XY contiene la posición de la esquina superior iz- 
quierda de la celda en el formato requerido por PLOT. Las otras filas 
se definen incrementando la parte Y de XY. BCC se utiliza como un 
contador del número de filas que deben trazarse y la rutina sale cuan- 
do BCC desciende por debajo de cero.. 

PLOT determina la dirección del byte a cargar en la memoria de 
pantalla (buffer) y el número de bit para el inicio de la fila de «pixels» 
hacia la cual señala CELLZ. SEBIT traza la fila de «pixels». CELLZ es 
luego incrementada para señalar a la cabecera de la fila siguiente de 
«pixels» y el bucle se repite nuevamente. 


SEBIT 


Esta rutina traza o borra el trazado de «pixels» en la memoria de 
pantalla (buffer) según que los bits correspondientes estén a «1» o 
a «0» en la fila de la celda. Se mantienen dos punteros separados 
para actuar en ambos conjuntos de bytes. 
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CONTADOR DE LA FILA DE LA CELDA 
CR CONTADOR DE BITS EN UNA FILA 


(Ji ]sTeT: Je]: [+]c8B, 


INSTRUCCION DE coNTROL compuTaDa ¡secunoo erre [8]! ]o]o[e le le [1] 
BT 


A= BYTE DELA CELDA > A + 
(SEÑALADO POR BC) 


EJECUTA El CONTROL DEL BYTE DE LA CELDA. A= N.” DE BIT DE LA MEMORIA DE PANTALLA 


NO, El 
BITA A CERO (era) BIT A A «UNO» 
COMPUTA INSTRUCCION RES (BYTE 2) COMPUTA INSTRUCCION SET (BYTE 2) 
SSROOS DESPLAZA A 3 BITS pespLaza A3 BTS [1]: Jofo[: [o]: [+] 
EToTeT5TeIOJS[ ALA IZQUIERDA A LA IZQUIERDA 
:Jofe]efefojo! E) Le suma Los errs DTi TeTbTe JoTo Y] 


7 LE SUMA LOS BITS 
7+0 7,6+076 pg 


TRASLADA EL 2.? BYTE COMPUTADO 
A= BYTE DELA MEMORIA DE PANTALLA SEÑALADO POR HL 


¡FIN DEL BYTE DE PANTALLA) SET / RES (COMO SE HAYA COMPUTADO) 
TRASLADO AL SIGUIENTE RESTAURA EL BYTE A LA MEMORIA DE PANTALLA 
BYTE DELA PANTALLA HL = HL +1 ie 


BORRA EL SENÑALIZADOR DE ACARREO 
DE= LIMITE DEL CONTROL 


PONE A «UNO» EL BIT DE SEÑALIZADOR N.* 6 
RECUPERA El PUNTERO SP 
SALIDA POR ERROR 


A= 
(EL BYTE SIGUIENTE ESTA EN LA FILA 191- q - 58 1 
LA FILA INFERIOR DE LOS «PIXELS» DE LA $ 
PANTALLA NO SE USA) 


TRASLADO AL BYTE 
SIGUIENTE DE LA CELDA A=7 
BC =BC+ 1 


ACTIVA TS PARA El CONTROL DEL BYTE SIGUIENTE 
DE LA CELDAPALABRAS POR CELDA (COPY = COPIA] 


ESTA FILA YA ESTA TERMINADA 


PREPARA EL BIT SIGUIENTE 
WC=A 


Diagrama de flujo 8.2 


z'8 eanbiy 


AH 80d OOVIVNIS VIS3 3149 3183 
9 Vli3v130 9 118 


RRA EA EN 0 0 0 0 00 E E 1 0 UE 
-S( 


0139 Y1 30 VJ VNN VEVd HAM SILAS NI Y99 SL!8 


le--qg ¡—> 
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Al entrar en DNB, HL señala a la memoria de pantalla (buffer) 
y DS señala al bit que debe ser puesto a «1» o bien a «0». CELLZ se- 
ñala a los datos de la celda y TS es el número de bit del byte de la 
celda. WC es un contador de bits/«pixels» por fila de la celda (la 
rutina efectúa un bucle de BCR veces). 

TST es una instrucción computada de control de bit para com- 
probar el bit TS en el byte de la celda según que el bit deba ponerse 
a «1» o a «0». Por tanto, las instrucciones SET o RES son compu- 
tadas y ejecutadas en DO para .poner a «1» o a «0» el bit requerido 
en la memoria de pantalla (buffer). 

Al terminar con un «pixel», se incrementan los punteros. Si algún 
puntero de bit es negativo, se le asigna el valor 7 y se incrementa el 
correspondiente puntero de byte. Si el puntero de la memoria de 
pantalla, HL, señala la última fila de «pixels» entonces, para simplifi- 
car las cosas, se olvida esto. El byte que se utiliza como señalizador 
cambia su bit 6 al valor «1» y se efectúa la salida hacia la dirección 
de retorno contenida en PANIC. 


Nota: En esta rutina se usan instrucciones computadas. ¿Cómo 
tratará su ensamblador éstas?: 


64 + 7 genera la instrucción BIT ?, A 
128 + 7 genera la instrucción RES ?, A 
192 + 7 genera la instrucción SET ?, A 
SINOPSIS 
GCELL, que usa PLOT, le permite hacer animación compleja. En 


el Capítulo 13 se mostrará la forma de preparar bloques de color. Más 
adelante aparecerá también una rutina para mover estos bloques. 


Listado 8.2 


SEEIT SUB 7 


ARO NEG 

2440 LD (DS>),A 
2445 LD A,7 
2450 LD (TS), A 
2400 L.D A, (BCR) 
2460 LD (WE) ,A 
24653 DNB LD A, (TS) 
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2470 
2473 
2480 
2485 
2490 
249% 
25300 TST 
2505 
2510 
2315 


Z23zZO 


225 
2030 
Luo 
2540 SETE 
2045 
2350 
2 
23960 
2563 DOB 
25970 
2373 DO 
2380 
2395 
23990 
25953 
26500 
2605 
2610 
zé613 
2620 
2625 
2630 
26350 
2640 
2645 
2650 
2600 
2660 
2663 JMX 


64+7 
(TST+1),A 
A, (BC) 
1,8 

A, (DS) 
NZ, SETE 


192+7 
(DO+1),A 
A, (HL) 

D,A 

(HL) ,A 

A, (DS) 

A 

P, IMA 

HL 

A 

DE, 22496 
HL, DE 

HL, DE 

M, JMX 

HL, (FADDR>) 


(HL) ,A 
HL, (PANIC) 
SP, HL 


A,7 
81 
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ZÓ70 
26735 
2óoB0 
2683 
670 
Zo?o 
2700 
2705 
2710 
2715 
2720 
2725 
2730 
P73S 
2740 


2743 


JMA 


JME 


DS 


LD 


(DS),A 
A, (TS) 
A 

E, JMB 
As 7 

BC 
(TS),A 
A, (WC) 
A 

M 

z 

(WC) ,A 
DNE 

(0) 

(e) 


Capítulo 9 


EL TRATAMIENTO DE ERRORES Y EL TRASPASO 
DE NOMBRES DE PARAMETROS 


TRATAMIENTO DE LOS RETORNOS POR ERROR 


En los comentarios acerca de la pila (Capítulo 3), mencionamos 
un método para salir de una rutina si aparece algún problema impre- 
visto e insoluble en un momento dado (véase también en el Capi- 
tulo 8 la utilización de PANIC). En casos como éstos es muy útil 
poder obtener alguna indicación sobre la naturaleza del problema. 

El código máquina suele llamarse siempre mediante la instruc- 
ción RANDOMIZE USR ... Pero no existe una razón fundamental 
para hacer esto. En el manual del Spectrum, Capítulo 26, se utiliza 
la forma PRINT USR 32500 para visualizar el contenido del regis- 
tro BC (cuyo valor ha sido asignado por el propio código máquina), 
Si tenemos, por ejemplo, una rutina que debe retornar normalmente 
con BC = 0, podemos llamarla con: 


IF USR ...< > 0 THEN GOTO ... rutina de error 
o mejor: 


LET código de error = USR ... 
IF código de error < > 0 THEN GOTO ... 


ya que podemos darle cualquier significado especial al valor que no 
sea cero. 

Todos estos IF ... < > 0 THEN GOTO ... son algo complejos y 
(peor aún) son en BASIC. Vea en el Capítulo 25 del manual del Spec- 
trum las variables NEWPPC y NSPPC. 
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NSPPC nos dice exactamente lo que debemos hacer. Diseñamos 
la parte BASIC de nuestro programa de tal forma que alguna línea, 
la número 2, por ejemplo, sea la línea a la que haya que saltar en 
caso de una condición de error. Nuestra salida por error debe enton- 
ces contener: 


LD HL,2 

LD (23618), HL 
LD A,1 

LD (23620), A 


que introduce el valor 2 en NEWPPC y el valor 1 en NSPPC. De esta 
forma se llega a la línea 2 del BASIC. 
Volvemos ahora a llamar nuestra rutina con: 


LET código de error = USR ... 


y continuamos normalmente con la instrucción siguiente. Si aparece 
algún error, llegaremos a la linea 2 y la variable «código de error» 
contendrá el valor que tenía BC cuando la rutina efectuó su retorno. 
Aunque parezca extraño, la asignación de BC al código de error se 
produce sin importar la forma en que se efectúa el retorno. 

Hay solamente un pequeño inconveniente en ello. BC puede uti- 
lizarse como un medio de traspaso de información entre el código 
máquina y el BASIC, y es una lástima sacrificar este medio para las 
rutinas de error. Después de todo, los buenos programas como los 
nuestros no suelen encontrar errores (!). ¿Podemos traspasar la infor- 
mación de error por algún otro medio? 

De nuevo encontramos la respuesta en el manual del Spectrum, 
escondida en las profundidades de los Capítulos 24 y 25. Es un mé- 
todo algo más complejo pero puedo asegurar que vale la pena em- 
plearlo. 

1) 23627/8 — VARS contiene la dirección del inicio de la tabla 
de variables en el programa BASIC. 

2) En el Capítulo 24 del manual se muestra la forma en que están 
organizadas estas variables y sus nombres. 

Si la primera linea ejecutada en BASIC es: 


0001 LET ERROR = 0 : GOTO ... 


entonces el inicio del área de variables estará como la figura 9.1 y 
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e peaje ae lo 


CODIGO DE VARIABLE 
CON NOMBRE LARGO ASCILl € -60nH 


A di 
“[pfalol+lolofifej. 
“[o]«[ofo[+[:[:[] 
¿OOOO EE 


EXPONENTE 


CARACTERISTICA 


INICIO DEL AREA DE VARIABLES 


Figura 9.1 


la rutina de error en el programa de código máquina puede locali- 
zar los bytes 5 a 9 e insertar los valores requeridos en la variable 
«error». La clave está en que la primera sentencia en el programa 
obligue a la primera variable a estar localizada en el principio del área 
de variables. En cualquier momento de la ejecución de un programa 
en BASIC, el orden de las variables dentro del área de variables 
dependerá de la forma en que hayan sido asignadas mediante sen- 
tencias LET y del orden en que éstas hayan sido ejecutadas. 
Nuestro programa tendrá ahora la siguiente forma: 


0001 LET error = 0 : GOTO 100 

0002 PRINT «CONDICION DE ERROR = »; error 
0003 ... rutinas de tratamiento de errores... 

0004 


0100 REM el programa propiamente dicho empieza aquí 
0101 


0150 LET q = USR ... 


y q será algún valor útil generado por la rutina y traspasado al BASIC 
por medio del registro BC. 
Nótese: 


1) El registro BC sólo permite traspasar un valor desde el código 
máquina al BASIC. 

2) «Error» puede, si se desea, ser un número en coma flotante de 
5 bytes en los valores de los enteros del Spectrum. 

3) Podemos ahora comunicar entre el código máquina y una va- 
riable BASIC y, por extensión, con el programa BASIC. 

4) Podríamos incluso cambiar la utilización de «error» y utilizarlo 
como una variable de entrada al código máquina. 


Podemos detenernos en este punto o continuar desarrollando un 
método para traspasar nombres de variables y valores (parámetros) 
entre el código máquina y el programa BASIC del Spectrum. 

Hemos de ser capaces de hacer dos cosas: 


1) Traspasar los nombres de variables a la rutina. 
2) Dado un nombre de variable, encontrar su dirección en el área de 
variables del programa BASIC. 
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Pero vamos a formalizar primero cómo vamos a tratar las con- 
diciones de error. 

A la entrada en el programa debemos asegurarnos de que la pri- 
mera variable BASIC tenga un nombre de cinco caracteres, el cual 
será reservado para traspasar códigos de error. Suponemos que 
nuestras rutinas de tratamiento de errores tendrán su inicio en la 
línea 2. 

Las rutinas en código máquina empezarán guardando el valor 
del puntero de pila de forma que pueda utilizarse para el mecanismo 
de salida. 

A la salida se retornará al BASIC colocando el valor que contenga 
el registro doble DE en aquel momento en la primera variable BASIC, 
y forzará el retorno a la linea 2. 

La llegada del código máquina al mecanismo de salida se hará 
conteniendo DE un valor adecuado y con la instrucción JP, CALL 
o JR que se considere conveniente. 

La rutina aparece en el Listado 9. 7. ERROR es el valor archivado 
de SP (puntero de pila) a la llamada de la rutina. 


Listado 9.111) 


1213 ERREX LD HL, (ERROR) 


1220 LD SP,HL 

1225 LD HL,2 

230 LD (23618),HL 
1235 LD  A,l 

1240 LD (23620),A 
1245 LD HL, (23627) 
1250 LD BC.7 

1255 ADD  HL,BC 

1260 LD (ERADR+2),HL 
1265 ERADR LD (ERADR+2),DE 
1270 RET 


1273 ERROR —DEFW 0 


Listado 9.1(2) 
000S ORG 540000 
0010 LD (ERROR) ,SF 
0015 PUSH AF 
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0020 
0025 
V0OXO 
0033 
0040 
0045 
0050 
0055 
0060 
0065 
0070 
007% 
0080 
0085 
0090 
00953 
0100 
0105 
0110 
0115 
0120 
0125 
0130 
0135 
0140 
0145 
0150 
0155 
0160 
0165 
0170 
0175 
0180 
0185 
0190 
0193 
0200 
oO205s 
OZ10 
oz1is5 


0220 


AF 


TRAF+ 


TRAP+ 


TRAFZ 


(ERROR) ,SF 


AF 
BC 


0225 
D230 
O235 
0240 
0243 
0250 
OLI 
0250 
0265 
0270 
0273 
0280 
0285 
0290 
0295 
0300 
0305 
ozZ1o 
oi 
0320 
O3J2S 
0330 
OBS 
0340 
0345 
0350 
0335 
0360 
0365 
0370 
0373 
0380 
0383 
0370 
0393 
0400 
0405 
0410 
04153 
0420 
04235 


PUSH 
FUSH 
FUSH 
CALL 
JE 

LD 

FUSH 
PUSH 
PUSH 
FUSH 
PUSH 
CALL 
JP 

LD 

PUSH 
FUSH 


DE 
HL. 

IX 
MAPS 
TRAFF 


(ERROR), SF 


IVERT 
TRAF+ 
(ERROR) ,SP 
AF 

EC 

DE 

HL 

IX 

MOVEC 
TRAF+ 
(ERROR) ,SP 


TRAF+$ 


TRAPS 
(ERROR) ,SF 
AF 

EC 

DE 
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0430 FUSH HL 


0433 PUSH IX 
0440 CALL DEMO 1 
0443 JF TRAFE 
0450 LD (ERROR), SFE 
045 FUSH AF 
0460 FUSH EC 
0465 FUSH DE 
06470 FUSH HL 
0475 FUSH IX 
0430 CALL DEMOZ 
0485 JE TRAFE 


040 TRAFÉ  FOF. 1X 
064953 TRAQ%  FOF. HL 
6500 TRARE — FOF. DE 
053059 TRASF  FOF. EC 
0510 TRATE FOF. AE 
o51is RET 


EL TRASPASO DE NOMBRES DE VARIABLES (PARAMETROS) 


En el Capítulo 25 del manual del Spectrum aparece la forma de 
resolver este problema. NXTLIN (en las posiciones 23637/8) contiene 
la dirección del inicio de la próxima línea de programa BASIC, des- 
pués de la que contiene la instrucción LET ... = USR ... Podríamos 
colocar una lista de parámetros en esta línea, escondida del sistema 
BASIC por una sentencia REM. 

Una llamada a la rutina en código máquina con parámetros po- 
dría ser, por ejemplo: 


0175 LET y = USR 12345 
0176 REM a,b : REM a y b son parámetros de USR 12345. 


En el Capítulo 24 del manual se explica cómo pueden obtenerse 
los nombres. NXTLIN señala al byte más significativo del número de 
línea, por tanto, (NXTLIN) + 4 será la dirección del primer carácter 
de texto de esta línea. Retrocedemos un lugar en la línea buscando 
el código REM (= 234), y luego empezamos a buscar el nombre de la 
variable del que indicaremos si termina con una coma, dos puntos 
Oo bien un carácter «ENTER». Los espacios son ignorados y los ente- 
ros se detectan porque comienzan con un dígito... 
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VAR$1, UNA RUTINA PARA LA BUSQUEDA DE VARIABLES 
EN EL AREA DE VARIABLES 


Es fácil dejarse llevar por la euforia al diseñar un programa. Las 
especificaciones aumentan rápidamente sin concretarse y después es 
más difícil eliminar los errores, de tal forma que el programa que 
nació como una buena idea, se convierte luego en una pesadilla y es 
eventualmente abandonado con una mezcla de disgusto y desespero. 

Vamos a dejar a un lado, por el momento, el traspaso de valores 
numéricos y nombres de variables multicarácter y nos limitaremos a 
traspasar un número reducido de variables de una sola letra (que 
pueden ser variables simples, cadenas o conjuntos). Siempre estare- 
mos a tiemo de complicar las cosas más tarde. 

El diagrama de flujo 9.1 es una reproducción del diagrama ori- 
ginal. El diagrama 9.2 es la versión final que corresponde al /istado 9.2. 
El recuadro VAR$1 es otra rutina que busca los nombres en el área 
de variables (diagrama de flujo 9.3). Retorna con A = 0 final de datos 
o bien con HL conteniendo la dirección del inicio del nombre de la 
variable y A = los tres primeros bits del código de este nombre. 
Véanse los detalles más adelante. 

La rutina no hace exactamente lo que se creía que iba a hacer. 
Las letras, paréntesis, y $ pueden estar en cualquier orden y el iden- 
tificador de variable es, en realidad, la última letra. La sentencia REM 
debe estar terminada con dos puntos o con un carácter «ENTER». 
Esto se deja para el lector, como un ejercicio sencillo para remediar 
estos defectos si lo desea. 


Documentación de la rutina 


Condiciones de entrada: ninguna 

Condiciones de salida: destruidos los contenidos de todos los re- 
gistros. 
PARMO — PARM6 son las direcciones de 
los primeros caracteres de hasta siete nom- 
bres de variables en el área de variables 
BASIC. 
O indica que no existe ningún parámetro. 


Nota: La rutina que llama debe verificar que el tipo de variable 
recibida sea correcto y recoger o cargar los bytes apropiados. 
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Po: temeTzo : Ebo, Aro, Lag 


Ao At 
6 2 
: ectal 
k 
Pda do ha loo Fox LO El 
ESsi3 
Esto 


Boceto del diagrama de flujo 9.1 
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PCALL — A 
LOCALIZA LAS DIRECCIONES DE LOS PARAMETROS NOMBRADOS EN LA SENTENCIA REM, SEGUN LA LLAMADA USA 


ENTRADA -- NINGUNA — SALIDA -- DIRECCIONES DE INICIO DE LOS NOMBRES DE PARAMETROS 


ALMACENADOS EN PARMO, 1, ETC. 


BOBRA El ESPACIO DE TRABAJO Y LA TABLA DE DIRECCIONES DE SALIDA, TAMBIEN F$ YRB_  AJUSTA EL CONTADOR 
DE LIMITE DE PARAMETROS A LA LONGITUD DE LA LISTA PERMITIDA +1 ASIGNA 1X A LA DIRECCION DE INICIO DE LA 
TABLA DE SALIDA ASIGNA HL A LA DIRECCION DE INICIO DEL TEXTO EN LA LINEA SIGUIENTE DEL PROGRAMA EN BASIC 


ENTRADA DESDE F9, 4h 


A= CARACTER SIGUIENTE DE LA LINEA REM 


NO, A PESPACIO al ELIMINA LOS ESPACIOS AQUI 


LÍ HL>1 CONTADOR DEL 
* PÁ+1 TOTAL DE CARACTERES 


S! 


SE HA LEIDO UN CARACTER REM 
CIS 
SE HAN LEIDO YA 256 


CARACTERES (DEMASIADOS) 
LEER HASTA QUE SE 

ENCUENTRE El CARACTER REM NO, <> 

LEER El SIGUIENTE DESPUES DEL REM REMS =(ML) 


DIRIGIASE A ESTE PUNTO PARA 
TODOS LOS CARACTERES 
DESPUES DEL REM 

A =(HL) A CONTIENE EL CARACTER SIGUIENTE 


FSIA (rr) 


FS INDICA SI SE HA LEIDO UN CARACTER «$» 


Ss: 


RB INDICA S! SE HA LEIDO UN 
CARACTER «(OR)» 


FIN DE PARAMETROS 


F9,48 
As A927 
[| sauna || LETRA CON CODIGO COMPRENDIDO ENTRE 1Y26 ÑA3 
D:-A 


LETRA QUE NO ES MINUSCULA 


Diagrama de flujo 9.2a 


PCALL —b 


ENTRAR AQUI DESPUES DE LEER El FINAL DE UN PARAMETRO 


VARIABLE CON NOMBRE DE UNA SOLA 
LETRA O VARIABLE DE CONTROL FOR 


A=sBITES 


A CONTIENE EL CODIGO DEL TIPO DE PARAMETRO 


SEGUN EL AREA DE VARIABLES DEL SPECTRUM 
AA 


A CONTIENE AHORA LA FORMA DEL PARAMETRO QUE 
DEBE BUSCARSE EN EL AREA DE VARIABLES 


B=A GUARDARLO EN B. INICIALIZAR ENTRADA PARA VAR$1 
Ac 
GUARDAR HL EN PZ 


NO COINCIDE. 
BUSCAR LA VARIABLE SIGUIENTE 


A CONTIENE El PRIMER CARACTER 
DEL NOMBRE DE LA VARIABLE 


FIN DEt AREA DE VARIABLES. 
NO EXISTE El ELEMENTO BUSCADO 


PUEDE SER UNA VARIABLE EL PARAMETRO BUSCADO HA SiDO LOCALIZADO. 
DE CONTROL FOR PARM]) SU DIRECCION DE INICIO ESTA EN HL 


GUARDAR HL EN LA LISTA DE DIRECCIONES DE LOS PARAMETROS. INCREMENTAR IX 
EL PUNTERO DE LA LISTA DECREMENTA EL CONTADOR DE PARAMETROS PEND 


DEMASIADOS ELEMENTOS EN LA LISTA DE PARAMETROS 
BORRAR F$, AB. RESTAURAR HL DESDE PZ. 
(HL SENALA AL ULTIMO CARACTER LEIDO EN LA SENTENCIA REM) 


ÑO EL ULTIMO CARACTER ERA: O UN CARACTER «ENTER» 


F9éa RECOGER EL CARACTER SIGUIENTE DE LA LISTA REM 


Diagrama de flujo 9.2b 


PCALL 


El número de parámetros que deben manejarse, PARMO, PARMI1, ... 
se calcula durante el proceso de ensamblaje y PEND, su contador 
+ 1 se ajusta a la entrada. El desplazamiento a la derecha permite 
alojar dos bytes en cada PARM. Para más parámetros, añádanse 
2 bytes más por parámetro entre PARM6 y PEND; la operación LDIR 
borrará todo a la entrada. Recuerde, la lista PARM contiene las 
DIRECCIONES del inicio de cada nombre de variable. 

La parte RR — RST — RRR de la rutina lee la siguiente línea de 
programa hasta que encuentra un carácter REM, y en este punto la 
variable REMS adopta un valor distinto de cero. Entonces RST salta 
a RSET, donde se comprobará el siguiente carácter de la sentencia 
REM que no sea un espacio. F$ adopta un valor no nulo si se en- 
cuentra un carácter $ indicador de cadena. RB se carga con un valor 
no nulo si se encuentra un carácter o bien indicadores de conjuntos 
(«arrays»). Una coma, dos puntos o un carácter «ENTER» fuerzan un 
salto a LB y entonces se comprueba si se trata de un carácter de 
letra minúscula. Si lo es, se guarda en B después de haberle res- 
tado 60 (hex). Cualquier carácter que falle en esta comprobación 
causa una salida por error que coloca el valor 2 en DE y llama 
a ERREX. 

Cuando se alcanza LB, se ha leido un nombre de parámetro y el 
programa de LB a LBX examina F$ y RB para determinar el tipo y 
la forma —con la letra identificada— del inicio que debe buscarse 
en el área de variables. 

A se pone a cero para inicializar VAR$1 en su primera llamada 
en SCHL. VAR$1 sale con A = 0 si no existen más variables y la ru- 
tina sale con error 2. En otro caso, HL señala el inicio del nombre de 
la variable que será comparada con el elemento buscado. Si no se 
encuentra todavía, el programa vuelve a SCHL con un valor no nulo 
en A, o, en caso contrario, PARM será el inicio del código que alma- 
cena la dirección de inicio de la variable en la lista de variables y antes 
se comprueba que haya sitio para ella. Los marcadores F$ y RB son 
puestos a cero y la rutina vuelve a RRR para leer el próximo carácter 
en la lista de parámetros o sale si se encuentra el final. de la lista. 


Listado 9.2 


2750 FCALL LD HL,O 
2733 NXTLM EQU 23637 
2760 LD (FO) ¿HL 
95 


2763 LD HL,FO 


2770 LD DE, PO+1 
2773 LD BC, FEND-FO 
2780 LDIR 

27835 LD. A,FEND+3-FARMO 
2790 SAL A 

2795 LD (FEND),A 
2800 LD IX ,¿FPARMO 
2805 LD BC,4 
2810 LD HI, (NXTLIN) 
2815 ADD  HL,BC 
2820 RR LD A, (HL) 
2823 cr NS 

2830 JR NZ,RST 
28339 RER INC HL 

28940 FUSH HL 

2843 LD HL,¿PO 
2850 INE (HL) 
28595 POP. HL 

2860 JR NZ,RR 
2863 LD DE,4 
2870 CALL ERREX 
2873 RST LD A, (REMS) 
2880 cr O 

2985 JR NZ,RSET 
2890 LD A, (HL) 
28953 CF 2.34 

2900 JR NZ,RRK 
2905 LD (REMS),A 
2910 JR RREK 

2915 RSET LD A, (HL) 
2920 CF gn 

2020 JR NZ,RT 
2930 LD (FF), A 
2935 JR RER 

2940 RT cF CU E 

2945 JR MZ ,RU 
2950 RV LD (RB),A 
2935 JR RRR 

2960 RU CF “yu 


29653 JR Z¡RV 


2970 
2975 
2980 
2983 
2990 
2993 
2000 
3005 
3010 
3015 
020 
30253 
3030 
03 
3040 
3045 
3050 
009 
3060 
3065 
3070 
3073 
2080 
0859 
2090 
2093 
2100 
3105 
2110 
3115 
21230 
2123 
3130 
2135 
2140 
3143 
3150 
155 
2160 
3105 
170 


LB 


LE2 


LES 


LE4 


LB1 


LBS 
LBX 


SCHL 


£“ ' 1) 
Z,LB 
Z,LB 
13 
Z,LB 
97 
M,ERX2 
26 
P,ERX2 
27 

B,A 
RER 

A, (F$) 
O 
Z,LB1 
A, (RE) 
a 
Z,LE4 
A, 128+64 
LEX 
A,64 
LBX 

A, (RB) 
(e) 
Z,LBS 
A,128 
LEX 
A,64+32 
E 

E,A 
AJ0 
(EZ) ¿HL 
VAR+1 
O 
Z,ERXZ 
A, (HL) 
B 

Z FARM 


97 


98 


FARM 


RAHL 


127 

E 

7, FARM 
A,l 

SEHL 
(1x4) ,L 
(1Xx+1),H 
IX 

TX 

A, (FEND) 
A 
(PEND)>,A 
Z,ERX4 

A yO 
(EFIJA 
(RB),A 
HL, (PZ) 
A, (HL) 

yA 

13 


3380 CALL ERREX 
3385 ERX4 LD DE,4 
2390 CALL ERREX 


VAR$1 


El área de variables consiste en una tabla ordenada de nombres 
y datos cuya dirección de inicio está dada por el contenido de las 
posiciones 23627/8. En el Manual del Spectrum se define el formato y 
la codificación de la tabla. VAR$1 utiliza esto para suministrar las 
direcciones de las variables. 

Los tres primeros bits de cada variable definen su tipo y permiten 
acceder al inicio de la próxima variable. Estos bits son: 


000 no utilizado 

001 no utilizado 

010 cadena 

011 nombre de una variable de una sola letra 

100 conjunto de números 

101 nombre de varios caracteres 

110 conjunto de caracteres 

111 variable de control de un bucle FOR — NEXT 


Estos códigos se utilizan para computar un salto relativo en JNV 
hacia otro salto relativo que trata de encontrar el final de una variable 
y el inicio de la siguiente. El proceso se inicia suponiendo que la va- 
riable previa no existente fuera del tipo 3, desplazando el inicio del 
área de variables en seis posiciones y saltando hacia J3. 

Las etiquetas JO a J7 identifican las secciones de código que tra- 
tan del tipo de variable correspondiente, como se indica en el diagra- 
ma de flujo 9.3. En el tipo 5, el final del nombre se indica poniendo 
a «1» el bit más significativo del último byte. FVEND busca esto últi- 
mo y la rutina procede como si se hubiera leido un nombre de va- 
riable de una sola letra. 

Entre llamadas a VAR$1 la variable VAR$ mantiene la posición 
alcanzada durante la exploración. Durante la rutina, HL señala al 
área de variables. 

En el caso de que la rutina empiece a generar errores después de 
haber funcionado correctamente, debe sospecharse que la variable 
VAR$ del Spectrum se ha alterado o bien que el área de variables 
ha sido sobreescrita. 
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VAR91. ENCONTRAR LA DIRECCION DE LA VARIABLE SIGUIENTE EN EL AREA DE VARIABLES 


ENTRADA A= O INICIALIZAR 
A+ 0 CONTINUAR LA BUSQUEDA EN EL AREA DE VARIABLES 
SALIDA A= 0NO HAY MAS DATOS -- FIN DEL AREA DE VARIABLES 
A+ 0A= TIPO DE VARIABLE ENCONTRADA 
HL CONTIENE LA DIRECCION DEL INICIO DEL NOMBRE DE LA VARIABLE 


vAR$ 1 


ALMACENAR BC. DE 


INICIALIZAR 


BORRAR EL BIT DE ACARREO. CARGAR HL CON LA 
DIRECCION DE INICIO DE LAS VARIABLES. MOVER HL 
6 BYTES HACIA ATRAS (COMO SI EL ULTIMO ELEMENTO 


(DIRECCION PREVIA DE LA VARIABLE) HL = (VARS) FUERA “DEL HFO/3) 


AJUSTAR A= CODIGO VAR$ = HL 
DEL TIPO DE LA ULTIMA 
VARIABLE TRATADA 


COMPUTAR SALTO A JO — J? 


> d 5 aÉc$(Y) NOMBRE DE 
PRESENTACION DE $ 0 e DE UNA LETRA FOR 
MENSAJE DE ERROR VARIABLE. 


| FVEND | 14 BYTES 


BC = 19 
HL. = DIRECCION DEL NOMBRE FIN DEL NOMBRE DE 
INC HL. MAS DE UNA LETRA 
HL SENALA LA LONGITUD 
BC= LONGITUD. —HiL= HL+8C. 
SUMAR 2 PARA LOS BYTES DE LONGITUD 


BC =€ 


BC CONTIENE EL NUMERO DE BYTES A LA 
TV SIGUIENTE VARIABLE. HL = (VARS) + BC 
HL SEÑALA AL INICIO DEL SIGUIENTE DATO 


A= PRIMER BYTE DEL NOMBRE SIGUIENTE 


AJUSTAR A= TIPO DE 
CODIGO DE ¡A VARIABLE 


NOTA: VARS ES LA DIRECCION DEL PRIMER 
CARACTER DEL NOMBRE DE LA VARIABLE 
ENCONTRADA PREVIAMENTE POR LA RUTINA RESTAURAR BC, DE 


Diagrama de flujo 9.3 


100 


Nota sobre el salto computado en JNV: 


La instrucción JR JO es una instrucción de dos bytes 
byte O = 24 decimal, 18 hex. 
byte 1 = desplazamiento relativo. 


Ya que la tabla entera consiste en saltos como estos, los desplaza- 
mientos requeridos serán 0, 2, 4, 6, etc. VTYPE sólo puede producir 
ocho valores (0 - 7). Si se desplaza un byte a la derecha, será 0, 2, 
4, 6,8, ..., 14 y la tabla cubrirá todas las posibilidades. La entrada O 
y la primera, ambas imposibles, saltan a la rutina de error. 


Listado 9.3 


1395 
2400 
3405 
3410 
3415 
3420 
3425 
3430 
3435 
3440 
34453 
2450 
1455 
3460 
3465 
3470 
34753 
2480 
3485 
3490 
2495 
3500 
3505 
3510 
2313 


3520 


VARSS 
VARF 1 


NV1 


JNY 


JO 


eE2> 
E | 


3930 y2 


23627 

EC 

DE 

O 

NZ,NY1 

A 

HL, (VARSS) 
EC,6 

HL, BC 
(VARE), HL 
q 

VTYFE 
(INV+1),A 
DE, 666 

YO 

JO 

JO 

JZ 

J3 

344 

J3 

J6 

37 

FTEX 
"VARF1 O error" 


ERREX 
HL 
101 


ado LD (WE+2) , HL 


3540 VE LD BC, (VF+2) 
20430 ADD  HL,BC 
2550 INC HL 
3005 INC HL 
2560 JV LD (VAR), HL 
Au6S LD A, CHL) 
23570 CF 080H 
2573 JR NZ,JIX 
3580 JW LD a,0 
20983 JR JXL 
2590 IX CALL VTYFE 
23993 JXL FOF. DE 
2600 FOF BC 
3605 RET 

2610 J3 LD BC,6 
2615 JI3X ADD HL,BC 
ZOZO JR IVY 
262353 34 JE J2 
2630 15 CALL FVEND 
30635 JR y 
3640 J6 JR J2 
36453 37 LD BC,19 
2050 JR IX 


3655 VARE DEFW O 
2660 VTYFE LD A, (HL) 


2663 AND 128+064+32 
670 RLE A 

2675 RLCO A 

2680 RLC A 

3685 RLO A 

2690 RET 

2693 FVEND LD HL, (VARE) 
3700 INC HL 

3703 FV1 BIT— 7,tHL) 
3710 JR NZ,FV2 
3715 INC HL 

720 JR FV1 

3723 FV2 L.D (VAR$) , HL 
2730 RET 
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SINOPSIS 


PCALL traspasa las direcciones de variables BASIC hacia las ruti- 
nas en código máquina. 

Esto facilita el problema de traspaso de datos y la mayoría de 
rutinas del próximo capítulo utilizan ésta o la subrutina OPARS. 

A la primera variable BASIC se le asigna el nombre ERROR y la 
línea 2 del programa BASIC se reserva para las rutinas de error. 
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Capítulo 10 


RUTINA PARA ORDENAR NUMEROS 
EN COMA FLOTANTE 


«Más allá de las montañas, la hierba es más verde.» 
(Proverbio alemán) 


UNA SOLUCION QUE PERMITE REALIZAR EN 145 SEGUNDOS 
LO QUE EXIGE CINCO HORAS EN BASIC 


A aquellos lectores que hayan avanzado hasta estas alturas, dé- 
jenme presentarles una rutina útil y práctica: la ordenación de un con- 
junto o matriz de números en el formato de coma flotante del Spec- 
trum. Se trata del método de ordenación por burbuja («bubble sort») 
prácticamente sin restricciones en cuanto al tamaño del conjunto. El 
tiempo de ejecución depende del cuadrado del número de entradas 
y es aproximadamente igual a rn2/7000 segundos para n entradas 
(unas 125 veces más rápida que su rutina equivalente en BASIC). 
Para 1000 entradas, tardará aproximadamente 145 segundos en orde- 
narlas, en vez de las cinco horas que tardaría en BASIC. 

El método de burbuja no es el más rápido pero sí el más sencillo. 
Se comparan dos posiciones consecutivas en la tabla y la mayor, si 
no es la primera, se intercambia con la menor. Se va explorando 
repetidamente la tabla hasta que no sea preciso realizar ninguna in- 
versión de elementos, lo cual significará que la rutina ya está en 
orden. En este punto la rutina efectuará su salida. 

La primera pasada desde el principio hasta el final dejará siem- 
pre el valor mínimo al final. Si la siguiente pasada se realiza desde 
el final hasta el principio, el valor máximo se colocará al principio 
de la tabla. Con este sistema, la longitud de la parte no ordenada 
de la tabla se reduce continuamente a un elemento menos por cada 
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RUTINA DE CLASIFICACION TIEMPOS DE EJECUCION 
2 
tN32 
N7000 


SEGUNDOS 


E 
e] 
fo] 
z 
3 
fo] 
w 
2 
z 
ul 
E 


4 5 6 


ELEMENTOS x 100 n 


Figura 10.1 


pasada, y el tiempo total puede reducirse casi en un 50 %. Le dejo 
esto para usted pues lo más difícil ya lo he hecho yo: el traspaso de 
los parámetros y la comparación de números en coma flotante. 


SORTF 


La rutina está dividida en dos partes. Primero la llamada a PCALL 
para obtener la lista de parámetros y la extracción de un parámetro 
localizado seguido de su comprobación. Si el parámetro no es del 
tipo 4 (conjunto de números), la rutina sale sin hacer nada. Entonces 
las variables HFE (inicio de la primera entrada) y HLE (inicio de la últi- 
ma entrada) son asignadas. Como no tenemos ninguna rutina de 
multiplicación, los saltos de la longitud del conjunto de los datos en 
el área de variables se realizan cargando el byte «número de dimen- 
siones» en A y después sumándolo consigo mismo. ¡La restricción 
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SS sono 


PREPARAR LA TABLA DE DIRECCIONES 


| PCALL 1] os PARAMETROS 


REGOGER El. TIPO DE PARAMETRO 


NO HACER NADA. RETORNO. 


Camaro) NO TIPO DE PARAMETRO ERRONEO 
PREPARAR LA DIRECCION DE LA LONGITUD 


BC = LONGITUD DEL ELEMENTO. HLE = INICIO DEL ULTIMO ELEMENTO. 
RECOGER N.* DE DIMENSIONES. MULTIPLICAR POR 2 (POR ADICION) (LÍMITE = 127 DIMENSIONES |) 


PARA SALTARSE LOS DATOS DE DIMENSIONES HFE= INICIO DEL PRIMER ELEMENTO 


PREPARAR D COMO MARCADOR DE ACCIONES. 
FE SEÑALAR AL EXPONENTE DEL PRIMER ELEMENTO 


COMPARAR DOS NUMEROS EN COMA FLOTANTE SEÑALADOS POR 1X 


(SENALIZADOR Z A 1: SEGUNDO = PRIMERO. 
(SENALIZADOR DE ACARREO A 1: SEGUNDO > PRIMERO) 


DE ACARREO 
INTERCAMBIAR NUMEROS EN COMA 


TRASLADARSE At SIGUIENTE 1X FLOTANTE Y AJUSTAR D = 0 
¡TRASLADA IX AL SIGUIENTE ELEMENTO 


HL = IX BORRAR EL SENALIZADOR DE ACARREO 
BC=HLE (COMPROBACIÓN DEL ULTIMO ELEMENTO) 


CONTINUAR 
CLASIFICACION 
NO COMPLETA 


TODO TERMINADO 


ii 


ALMACENAR BC 
B=5 


6=) 


INTERCAMBIAR (1X + 0) CON (IX + 5) VIA AY C 
IX=iX+1 


8-1 


RESTAURAR BC / AJUSTAR D 4 0 


SORTF 


Diagrama de flujo 10.1 
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es que Á no puede exceder de 127! Un conjunto de varias dimen- 
siones se trata como si fuera un conjunto de una.sola dimensión. 
El valor más alto se coloca en x(1,1,...). 

El cuerpo de la rutina SORTF tiene una estructura muy directa. 
El registro D se utiliza para indicar que se ha realizado una inversión 
y se carga en SWOPF. COMPF compara dos números consecutivos, y 
sale con el señalizador de cero (Z) a «1» si los números son iguales 
y con el señalizador de acarreo (c) a «1» si el segundo es mayor que 
el primero. Los dos números en coma flotante son consecutivos y el 
registro IX señala el byte de exponente con la dirección más baja. 


Listado 10.1 


27335 SORTF. CALL FCALL 


3740 LD HL, CFARMO) 
35743 LD (TYET+1)3, HL. 
3750 TYET LD Ay (TYRT+1) 
3735 AND. 128+44+32 
760 CP 1:28 

3765 RET  ONZ 

3770 INE HL 

3775 LD (FV1+2), HL 
2780 FV1 LD EC, (FYVi+2) 
35783 ADD  HL,BEC 
4790 LD BC, 
3793 ADD —HL,BC 
2800 LD (HLE> , HL 
2803 LD HL, (FARMO) 
2810 LD EC,=3 

38153 ADD —HL,BC 
3820 LD A, (HL) 
2823 ADD A 

ZB30 LD C,A 

Saa LD E,0 

73840 ADD HL,BEC 

2843 INC HL 

2850 LD (HFE) , HL 
28395 SBODY LD D,O 

3800 LD IX, (HFE) 
2863 NCOMF —CALL COMEFE 
3870 JR 7, IGUALES 


1083 


3873 JR MC, IGUALES 


2880 CALL SWOFF 
3885 JR TNEXT 
2890 IGUALES LD EC,3 
3895 ADD  —1X,BL2 
25900 TNEXT  FUSH IX 

3905 FOFP. HL 

2910 OR A 

34915 LD BC), (HLE) 
3920 SBC  HL,BC 
2925 JE: NZ , NCOMF 
ZOO LD A,D 

OS Ad cF o 

3940 RET  Z 

3945 JR SEODY 
2950 HFE DEFW 0 

953% HLE DEFW O 

3960 SWOFF  FUSH EC 

2965 LD B,3 

25970 SW1 LD A, (IX+0) 
2975 LD E, (IX+5) 
3980 LD (1X+0),C 
4983 LD (1TX+5),4A 
3990 INC — IX 

3993 DINZ Swi 

24000 FOF EC 

4005 LD D,1 

4010 RET 


COMPF 


En la Figura 10.2 se detalla el formato de un número en coma 
flotante. La rutina es bastante complicada y podría simplificarse mu- 
cho. IX señala al primer byte (de exponente) del primer número cuya 
mantisa está en IX + 1, 2, 3 y 4. El segundo número tiene su expo- 
nente en IX + 5 y su mantisa en IX + 6, 7, 8 y 9. Los signos de los 
números están en IX + 1 e IX + 6. Si son diferentes, el positivo es 
mayor que el negativo. Si son del mismo signo, se comparan sus 
exponentes. En la representación del Spectrum, los exponentes están 
desplazados en 128 y deben ser comparados y comprobar el señali- 
zador de acarreo. El significado depende, sin embargo, del signo de 
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COMPARACION DE DOS NUMEROS EN COMA FLOTANTE — FORMATO DEL SPECTRUM 
ESTAN EN 10 BYTES CONSECUTIVOS, IX SEÑALA AL PRIMERO DE ELLOS 


BIT DE SIGNO DE LA MANTISA BYTES DELA MANTISA, SIN SIGNO 
(UTILICESE COMPARACION SIN SIGNO) 


Figura 10.2 


la mantisa. Con mantisas positivas, el exponente mayor pertenece 
al número mayor en coma flotante. Con mantisas negativas, el expo- 
nente mayor pertenece al número menor en coma flotante. El regis- 
tro B adopta un valor no nulo para mantisas negativas. 

Los números del mismo signo y exponentes iguales deben ser 
comparados byte a byte hasta que se detecte alguna diferencia entre 
ellos, si es que la hay. Los bytes de signo, al ser comparados, deben 
comprobarse con operaciones JP P o JP M, ya que el acarreo se 
produce solamente con un número negativo. Los bytes de mantisa 
restantes pueden comprobarse con el señalizador de acarreo puesto 
que no tienen signo. El significado de la decisión en BTL o BTG se 
decide por el signo de la mantisa, según el contenido del registro B. 
Si no se hiciera esta corrección, los números positivos se separarian 
de los negativos y se clasificarian los dos bloques por orden decre- 
ciente absoluto (sin tener en cuenta el signo). 


Listado 10.2 


4015 COMPF LD BE,0 


4020 EIT 7,(IX+1) 
4025 JR Z ,CL1 
40730 CL2 EIT — 7,(1X+6) 
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40353 
4040 
4045 
40530 
4055 
4060 
4063 
4070 
4073 
4080 
4083 
4090 
4093 
4100 
4105 
4110 
4113 
4120 
4125 
41:30 
4135 
4140 
4143 
4150 
4135 
41650 
4165 
4170 
4173 
4180 
41853 
4190 
4195 
4200 
4a2oS 
4210 
4213 
4220 
4223 


ZO 


CL 


cL4 


cL1 


CLS 


CLó 


XEQ 


XEQM 


V1iGV2 


ViLVZ 


ETL 


Z,VILV2 
A, (IX+0) 
(1X+5) 
M,V1GVZ 
7,CL4 
ViLV2 
B,255 
XEO 

7, (1IX+0) 
NZ,V1GV2 
A, (IX+5) 
(1X+0) 
C,V1GV2 
NZ ,V1ILY2 
As (IX+1) 
(IX+6) 
Z,XEQM 
P,BTG 
BTL 

A, (IX+2) 
(1X+7) 
C,BTL 
NZ,BTG 
A, CIX+Z3) 
(1X+8) 
C,BTL 
NZ,BTG 
A, (IX+4) 
(1X+9) 
C,ETL 
NZ,BTG 


NZ ,V16V2 
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4a23o JR ViLV2 


4240 BTG BIT — 1,É 
4243 JR NZ,V1ILV2 
4250 JR V1iGV2 


UN EJEMPLO PRACTICO DE SORTF 


Este ejemplo se basa en la utilización del SORTF para imprimir 
una lista de jugadores en orden decreciente de puntuaciones. No hay 
más de 999 jugadores y sus puntuaciones o tiempos pueden repre- 
sentarse por un número de menos de seis dígitos. 

Los datos forman un conjunto numérico al): los puntos del ju- 
gador n están en el elemento a(n). Si ordenamos a(), tendremos los 
elementos por orden de valor numérico pero perderemos la identifi- 
cación del jugador a quien corresponde cada uno. 

Si programamos en BASIC: 


FOR n = 1 TO... 
LET a (n) = 1000* a (n) + n 
NEXT n 


entonces cada elemento contendrá ambas partes de la información. 
Los tres últimos dígitos identificarán al jugador y los restantes a su 
puntuación. Nótese que, debido a la manera en que el Spectrum 
trata a los números en coma flotante, el valor aparente de a(n) podría 
no ser mayor que 1.000.000.000. Podemos escribir ahora: 


LET 1 = USR SORTF 
REM af ): 


y el conjunto será ordenado: con las puntuaciones más altas al prin- 
cipio y el número de jugador contenido en las últimas tres cifras. 
El elemento n puede ser escrito. con: 


PRINT INT (a(n)/1000); INT (a(n)-1000 * INT (a(n)/1000)) 


Queda aún otra consideración. Algunos elementos de al) pueden 
ser almacenados internamente en la forma entera, lo cual descon- 
certará a SORTF. Antes de utilizar la rutina, cada elemento debe 
estar en la forma de coma flotante, y la mejor manera de asegurar 
esto es empleando algo parecido a esto: 


LET ali) = a(i) + 65537 — 65537 
n2 


compr 


e 


B= O BORRAR -- Ve SEÑNALIZADOR DE MANTISAS 
COMPROBAR EL BIT DE SIGNO DE LA PRIMERA MANTISA 


EXPONENTE COMPARAR LOS BYTES DE EXPONENTE! 
MAYOR SENALIZADORES p - (IX +5) 
MAS --Ve y Si y2 


NO, 


EXPONENTES IGUALES 
AMBAS MANTISAS --Ve 
USO DEL REGISTRO B Su SEÑALIZADOR 


N1+vE 


COMPARAR LOS BYTES DE EXPONENTE 
SEÑALIZADORES Y7--Yq = (MX + 5)--(1X +0) 


MAYOR EXPONENTE] 
MAYOR VALOR 


MENOR EXPONENTE 
MENOR VALOR 


-XPONENTES IGUALES 
AMBAS MANTISAS + Ve 


EÑALIZADORES = 11X+2)--(1X +7) 
BYTES DE LA SEGUNDA MANTISA 


o 
BYTES DE LA TERCERA MANTISA 


LOS DOS NUMEROS EN COMA! 
FLOTANTE SON IGUALES 


BORRAR EL SEÑALIZADOR DE CERO BORRAR EL SEÑALIZADOR DE CERO 
LEVANTAR El. SEÑNALIZADOR DE ACARREO BORRAR El SEÑALIZADOR DE ACARREO 


Diagrama de flujo 10.2 
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Para una lista de m entradas, el programa podría ser: 


FOR n = 1TOm 

LET a (n) = 1000 * a (n) + n + 100 000 

NEXT n 

LET 1 = USR SORTF 

REM al ): 

FOR n = 1TOm 

LET a (n) = a(n) — 100 000 

PRINT INT(a(m/1000); INT(a(n) — 1000*INT(a(n)/1000)) 
NEXT n 


el cual escribirá la puntuación seguida del número de jugador. Donde 
haya dos jugadores con la misma puntuación, éstos estarán ordena- 
dos en forma decreciente por sus números de jugador. 

Todo lo que se necesita es introducir los datos en a() para empe- 
zar y la rutina hará el resto en un abrir y cerrar de ojos. 


n4 


Capítulo 11 


EL TRASPASO DE OTROS PARAMETROS 


Hasta aquí tenemos solamente unas cuantas rutinas que pueden 
ser llamadas desde el BASIC. Es relativamente fácil ensamblarlas de 
forma separada (con su propia dirección de carga y sus propias co- 
pias de las subrutinas comunes), procurando llamar correctamente 
a cada una cuando sea preciso. Las desventajas de este sistema son 
evidentes cuando tienen muchas subrutinas en común y éstas se 
multiplican, por tanto, innecesariamente. 

La solución que yo he adoptado se muestra en el /istado 717.1. 
Todas las rutinas, etc., están ensambladas juntas (todas las que se 
necesiten) y son llamadas a través de secuencias de código idén- 
ticas, que son todas de la misma longitud. 

Primeramente se encuentra el almacenamiento del puntero de pila 
SP para facilitar el regreso a la linea 2 en caso de error; después, el 
almacenamiento de todos los registros utilizados, la llamada especí- 
fica a cada rutina (DRAWL, MAPS, etc.) y finalmente el salto a la 
etiqueta común de retorno TRAPS$, donde los registros son restaura- 
dos y se efectúa el retorno RET al BASIC. 


Listado 11.1 

0005 ORG 60000 

0010 LD (ERROR) ,SF 
0015 FUSH AF 

DO20 FUSH EC 

0025 FUSH DE 

D0OZO FUSH HL 

0035 FUSH IX 

0040 CALL DRAWL 
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0045 
0050 
0055 
0060 
Ó06S 
0070 
0073 
0080 
00853 
0090 
0093 
0100 
0105 
0110 
0115 
0120 
0123 
0130 
0135 
0140 
0145 
0150 
0155 
0160 
0165 
0170 
0175 
0180 
0185 
0190 
0195 
O200 
OZOS 
0210 
ozis 
OZ20 
OZ2ZS 
0230 
OZL35 
0240 
0245 


TRAFE 
(ERROR) ,SF 
AF 


TRAPS 


0250 LD (ERROR) ¿SF 


0295 FUSH AF 
0260 FUSH EC 
0265 PUSH DE 
0270 FUSH HL 
0275 FUSH IX 
0280 CALL IVERT 
0285 JF TRAF+ 
0290 LD (ERROR) ,SF 
0295 FUSH AF 
0300 FUSH EC 
03OSs FUSH DE 
0310 FUSH HL 
0315 PUSH IX 


Estas entradas comunes son todas de 16 bytes de longitud y las 
rutinas pueden llamarse mediante un desplazamiento respecto a la 
dirección de origen: 


DRAWL en USR + 0 
SATTR en USR + 16 
BLOCK en USR + 32 


y así sucesivamente. Un programa BASIC (o solamente su inicio) 
podría parecerse al listado 17.2. Esto tiene la ventaja de que si hay 
que cambiar la dirección de carga de la rutina, solamente es nece- 
sario alterar la línea 10 del programa y que, después de la prepara- 
ción inicial, las rutinas pueden ser llamadas por sus mnemónicos en 
vez de hacerlo por los valores numéricos. (Las rutinas SATTR y 
DRAWL se describen en los capítulos 13 y 14.) 


Listado 11.2 


1 LET error=0:< GO TO 1060 

2 FPRINT "ERROR ="serror: STOF 
10 LET base=40000 

11 LET drawl=base+ú 

12 LET sattr=base+lé6 

13 LET block=base+rz2 

14 LET sortf=base+40 

15 LET gcell=base+64 

16 LET map=hase+80 

17 LET ¡ivert=base+96 
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23 60 SUB 70: FAUSE 200: GO SUE 80; 

200: 60 SUB 300: GO SUB 400: GO SUE 
9000: 60 TO 21 

O LET b=256 

41 DIM k*(b,2) 

42 FOR x=1 TO b 

3 LET k*$(x,1)= CHR* 255 

44 LET k*(x,2)= CHR* 255 

43 MEXT x= 

50 LET k=O 

31 LET 01=0 

93 LET 1= USR movec 

34 REM LEER POSICIÓN DEL CURSOR 

36 FRINT AT 0,0," “: PRINT 

0,031: FOKE 23560,255 

37 1F l=01 THEM. LET 1=45535 

58 (LET k=k+1 

39. — LET Kk*(k,2)= CHRE-— INT (1/72546) 
60 — LET k*(k,1)= CHRE INT (1-254*e( 
(1/236))3) 

ó61 1F k=1 THEN GO TO 58 

62 LET m= USR drawa 

63 REMOAEO:; 

64 LET ol*1 

0639 FRINT AT 0,6;k 

6 0 TO 5% 

TO LET 1l= USR sattr 

71 REM :0,0,15,11,8, 

TZ LET l= USR sattr 

73 REP :16,12,31,23,16, 

74 LET 1l= USR sattr 

73 REM 224,0,31,6,24, 

76 RETURN 

30 LET l= USR map 

81 RETURN 
100 LOAD "" CODE : LOAD "" CODE : 60 
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18 LET movec=base+112 
19 LET svert=base+l24 
20  LET drawa=base+r144 
21 LET demol=base+160 
22 LET demo2f=base+174 


GO SUE 


AT 


INT 


TOD 1 


200 
Gl 
OZ 
203 
204 
203 
206 
207 
208 
209 
P20 


ma 
sl 
raro 
de A 
maz 
A de 


224 
200 
301 
302 
303 
304 
310 
400 
401 
402 
403 
404 
403 
406 
407 
408 
409 
2000 
29001 
$002 
$003 
9004 


DIM al(44) 
FOR m=1 TO 
LET a(m)= 
NEXT m 

60 SUE 220 
LET 1l= USR 

REM aO: 
FAUSE 1 

GO SUB 220 

RETURN 

CLUS 

FOR m=1 TO 

FRINT am), 

NEXT m 

RETURN 


443 

END x*107:< 
sort 

44 STEF 2 
aím+1) 


INT 


(C3O* END )-15)) 


PRINT— AT 3,5; "DEMOSTRACION DE COLOR." 


FOR k=0 TO 
LET 1=demol 


253 


REM k:0,0,14,7, 


NEXT E 
RETURN 
DIM g(5) 
FOR qg=1 TO 
LET g(5)= 
LET qg(t3)= 
LET g(43>= 
LET gí(l)= 
LET gíz)= 
LET 1l= USR 

NEXT g 

RETURN 

FPOKFE 
FOR x=0 TO 
LET 1= USR 
FOKE 
NEXT 5: 


INT 
INT 


INT 
INT 


23675,0: 


300 


demo2 


gcell 


38400,x 
RETURN 


(255% END ) 
(31% END) 
INT (23% RND ) 
(g(3)* RND ) 
(g(4)* RND ) 


POKE 23676,150 
224 STEF 2 


Ahora debería explicar algo: las sentencias REM en el listado 11.2. 
Antes, en el Capítulo 9, mostré cómo los NOMBRES de las variables 
podían ser traspasados pero dejamos a un lado (debido a que era 
todavía demasiado complicado) el traspaso de valores numéricos y 
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de cadenas. En el Capítulo 10 utilizamos un nombre de conjunto 
numérico traspasado para suministrar los punteros necesarios a la 
rutina SORTF. Ahora vamos a volver a las omisiones del Capítulo 10. 


OPARS (Otros parámetros) 


Estos parámetros deben ser compatibles con los nombres de pará- 
metros recogidos por PCALL, es decir, que pueden estar presentes 
en la misma linea REM donde se encuentran los nombres de los pa- 
rámetros. La manera más fácil de conseguir esto es dividiendo la 
lista de parámetros en dos partes: primero los nombres, terminados 
con un carácter de dos puntos, y luego los valores numéricos y ca- 
denas. Puede darse el caso de que no existan nombres de parámetros 
pero, aun así, deberían mantenerse los dos puntos para señalar el 
inicio de la parte de valores y cadenas. 

Las especificaciones para estos parámetros son: 


— Cada elemento, incluido el último, debe terminar con una 
coma. 

— La linea REM debe terminar con un carácter ENTER. 

— Los valores son enteros de 16 bits sin signo. (Sus valores pue- 
den encontrarse en las variables VPARO, VPARO + 2, etc.) 

— Las cadenas están delimitadas por comillas (») a cada extremo, 
pueden ser de cualquier longitud y deben terminar con una coma 
después de las comillas de cierre. No deben contener dobles comi- 
llas. La dirección del primer carácter de cada cadena puede hallarse 
en SPARO, SPARO + 2, etc. 

— No se traspasa ningún dato acerca de las posiciones relativas 
de los valores y cadenas en la lista de parámetros: sólo sé guarda 
constancia de sus posiciones relativas dentro de cada clase. 

— Para permitir traspasar el 0 como un valor, se utiliza un byte 
subsidiario, SBITZ, y tiene los bits 7, 6, ... ajustados al valor O ó 1 de- 
pendiendo de si VPARO, VPARO + 2, etc., son válidos. 

OPARS forzará los siguientes retornos por error: 


10 no se ha encontrado el final de la línea REM 
11 carácter que no es un dígito, en un número 
12 demasiados parámetros (más de 6) 

13 falsa lectura de un número 

14 número mayor de 65535 
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Listado 11.3 


4255 OPARS LD  HL,SPARO 


4260 
4263 
a2RT7Oo 
4273 
4280 
4283 
42790 
4295 
300 
4305 
4310 
4315 
4320 
4323 VPL 
4330 
4335 
4340 GNB1 
4345 
43530 
4355 
4360 
434635 GNB2 
4370 
375 
4.80 
4385 
4390 
4393 
4400 
4403 
4410 
4415 
4420 
4423 
4430 
4433 
4440 
4443 


LD (SFZ),HL 
LD  HL,VPARO 

LD (VEZ),HL 

LD HL,0 

LD (SPARO),HL 

LD HL,SPARO 

LD  DE,SPARO+1 

LD BC,SBITZ-SPARO+1 


LDIR 

LD HL, (NXTLN) 
INC HL 

INC HL 


LD (VEL+2) HL 
LD BC, (VPL+2) 


INC HL 

INC — HL 

CALL GETEY 
cr 1.3 

RET  Z 

CP .¿” 

JR NZ,GNB1 
CALL GETBY 
cP 13 

RET Z 

cr . o» 

JR  Z,GNB2 
cr " á “ 

JR  Z,EOPAR 
CF 1 0s esos 

JR Z,STSTR 
CF .gr 

JR. M,ERX11 
CP “y. 


JR. P,ERX11 
JR — Z,EOPAR 
SUB “up” 
PUSH HL 
PUSH BC 
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44590 
4435 
44060 
4465 
4470 
4473 
44890 
4483 
4490 
4495 
43900 
430S 
4310 
4uis 
4uZO 

ZO 
4oO 
au 
4540 
4543 
450 


4335 


4360 
4305 
4570 
4373 
4580 
4385 
4590 
4395 
4600 
4605 
4610 


ERX14 


EDFAR 


VPL2 


A 
HL, ¿NUME) 
HL; HL 
C,ERX14 
HL. HL. 
C,ERX14 
BC, (NUME) 
HL, BC 
C,ERX14 
HL, HL 
C,ERX14 
E,JO 

C,A 

HL., BC 
C,ERX14 
(NUMB) , HL 
A,1 
(NN) , A 
BC 

HL 

GNB2 

DE, 14 
ERREX 

HL 

EC 

A, (NNR) 

(8) 

7 ,ERX13 
A, (SBITZ) 
A 

18 
(SBITZ),A 
HL, (NUMB) 
BC, (VPZ) 
(VEL2+1),BC 
(VPL2+1),HL 
BC 

BC 
(VEZ), EC 
HL, NUMB+2 
A 


dba 
ASÓO 
4063 
d07O 
4073 
4680 
4585 
4690 
40693 
4700 
a7oo 
4710 
4715 
4720 
4725 
4730 
4735 
4740 
47453 
4750 
4735 
4760 
4763 
4770 
4773 
4780 
4783 
a7oo 
4795 
4800 
4803 
4810 
4815 
4820 
4823 
4830 
4835 
4840 
4845 
4850 
4893 


STSTR 


VPLZ 


REFORE 


GNB3 


GETEY 


ERX1O 


SEC 
de 
LD 
LD 
LD 
L.D 
POP 
FOR 
JE 
FUSH 


HL, BC 
Z,ERX1IZ 
HL, O 
UNLÍME) , HL. 
a,0 
(NINE) ,A 
EC 

HL. 

GNEZ 

HL 

BC 

DE, Hi 
BC, (SPZ) 
HL, VPARO 


DE, HL 
(VEL3+1),BC 
(VELI+1),HL 
BC 

BC 

(SPZ),BC 

BC 

HL 

GETBY 

NZ , REORC 
GETBY 


7,E 
NZ,ERX1O 
A, (HL) 
HL 


DE, 10 
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4860 ERXAA CALL ERREX 
4863 ERX11 LD DE,11 


4870 JR ERXAA 
4873 ERX12 LD DE, 12 
4880 JR ERXAA 
4883 ERX13 LD DE,13 
48790 JR ERXAA 
4893 VEZ DEFYW 0 
4700 SPFZ DEFN 
4903 SFARO  DEFWN 
4910 DEFYW 0 
49153 DEFYW 0 
AO DEFWN O 
4925 O DEFW O 
AGO DEF 0 
4933 VPFARO  —DEFYW G 
4940 DEFW 0 
4943 DEFW € 
4DO DEFYW 0 
49330 DEFYW 0 
4960 DEFYW 0 
47963 NUMEB DEFW 0 
4970 NNR DEFE € 
4973 SBITZ DEFB Ó 
4980 DEFYW O 
Operación 


Como que la rutina puede llamarse muchas veces, todo el espacio 
de trabajo se borra primeramente y los punteros— SPZ para cadenas 
y VPZ para valores — se ajustan para señalar al inicio de las respec- 
tivas listas, SPARO y VPARO. 

En VPL, el registro BC se carga con el número de caracteres en 
la línea de parámetros siguiente a la llamada USR ... y HL:se ajusta 
para señalar al primer byte. GETBY lee los bytes en forma secuen- 
cial utilizando HL y decrementando BC (con error 10 si BC se vuelve 
negativo) el cual está preservado para esta utilización. El carácter 
leído se almacena en el registro A. 

En GNB1 se leen los caracteres hasta que se encuentra un carác- 
ter 13 (ENTER) o bien un carácter de dos puntos. Los dos puntos 
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OPARS 


BORRAR EL AREA DE LA TABLA DE SALIDA 
INICIALIZARA PUNTEROS SPZ + VPZ 
ASIGNAR A HL EL INICIO DE LOS DATOS DE PARAMETROS Y 
A BC LA LONGITUD DE LA LINEA REM EN BYTES 


LEER El CARACTER «:» 


 —_—_—_——— 
VOLVER AQUI DESPUES DE UN DIGITO 


FINAL DE CADENA 
COMA AL FINAL DE UN NUMERO 


OMITIR ESPACIO 


ALMACENAR HL+ BC 


ESPACIO PARA LA 
DIRECCION DE LA CADENA NO £S UN DIGITO; 


1] 
FORMAR LA InfRUCCION EX 
DE CARGA 


A= VALOR BINARIO DEL DIGITO 
ALMACENAR HL+BC 
BORRAR EL SENALIZADOR DE ACARREO 
HL= NUMERO QUE ESTA SIENDO LEIDO 
ALMACENAR LA DIRECCION DE LA CADENA 

1 sauna por [MULTIPLICAR HU POR 10 Y SUMARLE EL VALOR 
FORMAR LA DIRECCION SIGUIENTE DE ALMACENAMIENTO DESBORDAMIENTO y_EL BYTE QUE ACABA DE SER LEIDO COMPROBAR 

DE LA CADENA Y GUARDARLA EN SPZ El SENALIZADOR DE ACARREO EN TODOS LOS PASOS 


ALMACENAR EL RESULTADO PARCIAL EN NUM8 
RESTAURAR HL+BC AJUSTAR NNA Y O RESTAURAR HL+8C 


ALMACENAR BC + HL 


PONER A «UNO» EL BiT DE SENALIZADOR 
EN SBITZ COMPUTAR LA INSTRUCCIÓN DE 
CARGA 


CARGAR NUMB EN LA TABLA VPAR 
PREPARAR NUEVO VPZ PARA EL SIGUIENTE 


FIN DE 
LA TABLA 
CONTINUAR DESPUES 


DEL FINAL DE LA CADENA 
Ecos DESPUES 


(CETBY DEL FINAL DEL NUMERO 


MEN 
CARGAR EL BYTEEN A DECREMENTAR EL CONTADOR DE BYTES 
INCREMENTAR HL (PUNTERO DE BYTES) 
FALTA ALGUNO 


E. Ve 


TERMINADOS 


Diagrama de flujo 11.1 
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marcan el final de la parte de nombres de parámetros, la cual puede 
estar vacía. 

En GNB2 se analizan los caracteres que se encuentran después de 
los dos puntos. Un carácter 13 termina la rutina. Los espacios son 
ignorados. Una coma se reconoce como final de parámetro (salto 
a EOPAR), y las comillas se reconocen como el inicio de una cadena 
que debe tratarse en STSTR. Todo lo que pueda quedar debe ser un 
dígito decimal o bien un error. 


Números 


Los códigos ASCII de los números están dispuestos en forma se- 
cuencial desde el 48 decimal para el «O» hasta el 58 dec. para el 9 y 
los dos puntos tienen el código ASCII 59 en decimal. Restándoles 
el código del O se obtiene una representación binaria válida del dígito 
obtenido. 

Los registros HL y BC se almacenan para la siguiente utilización 
en GETBY y HL es cargado con NUMB, que contiene el resultado 
parcial de la evaluación del valor (o cero). HL se multiplica por 10 me- 
diante el desplazamiento y suma y después se le suma A para obte- 
ner. un nuevo resultado parcial el cual se guarda nuevamente en 
NUMB. En cada paso se comprueba HL por si se produce un des- 
bordamiento («overflow») de su valor y se genera un error 10 si es 
preciso. NNR se ajusta a un valor no nulo para indicar que se está 
leyendo un número y se restauran los registros HL y BC, dispuestos 
para leer el siguiente byte de entrada. 


Fin de parámetro (EOPAR) 


Si NNR tiene un valor nulo, una condición de error (doble coma 
o un valor perdido) provoca la aparición del mensaje de error 13. En 
otro caso habrá sido leido un número válido y se podrá poner a «1» 
un nuevo bit de SBITZ. Si el número era cero, la entrada VPAR de- 
bería ser también cero. Una entrada no nula no puede utilizarse como 
comprobación para la presencia de entrada, como se hace en SPAR 
para las cadenas, ya que 0 es el inicio de la memoria ROM. VPL2 es 
una instrucción computada que carga HL en la lista VPAR y después 
se incrementa VPZ en 2 para señalar al elemento de los dos bytes 
siguientes. Si señala a NUMB + 2, la tabla se ha desbordado y se 
genera un error 12. NUMB y NNR se borran para quedar listos para 
el siguiente parámetro de valor. 
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Nota: La secuencia entre las etiquetas VPZ y SBITZ no debe ser 
alterada aunque se cambie el número de elementos en las lis- 
tas VPAR y SPAR. 


Inicio de cadenas (STSTR) 


HL señala al byte que se encuentra inmediatamente después de 
las comillas que ha sido leido por GETBY. Se guardan HL y BC, y HL 
(la dirección del primer carácter de la cadena) se guarda en DE; 
OR A pone a cero cualquier señalizador de acarreo y se compara SPZ 
con VPARO, el cual indica ei final de la lista SPAR. Si existen dema- 
siados parámetros de cadena, se genera de nuevo un error 12. VPL3 
es una instrucción de carga computada del valor restaurado de HL 
(desde DE) en la tabla de direcciones de las cadenas. 

Una vez que la tabla de direcciones de las cadenas se ha car- 
gado, RFORC lee la cadena para localizar las comillas del final y des- 
pués la coma o bien el carácter 13. 


SINOPSIS 
OPARS permite traspasar constantes, valores enteros y cadenas 
desde un programa BASIC a una rutina en código máquina. Estos 


parámetros deben colocarse en una línea REM después de un carác- 
ter de dos puntos. 
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Capítulo 12 


BORRADO DE BLOQUES DE BASIC 


Si se desea eliminar un conjunto de líneas de un programa en 
BASIC, porque hayan quedado obsoletas, por ejemplo, habrá que 
teclear normalmente cada número de línea por separado lo que puede 
hacer perder mucho tiempo. Muchos otros microordenadores poseen 
un comando DELETE a,b o similar, que elimina de una vez las lineas 
desde la a hasta la b. 

La siguiente rutina usa OPARS para borrar“cualquier cantidad de 
líneas de programa. Es aconsejable consultar al Capítulo 24 del ma- 
nual del Spectrum al seguir la descripción de la rutina. Esta precisa 
de dos parámetros de valor —ambos números de línea— y borra 
desde la primera hasta la segunda (pero sin incluirla). La técnica con- 
siste en el borrado de cada linea individualmente seguido del ajuste 
de VARS. El sistema BASIC debe ser preparado con CLEAR tanto 
antes como especialmente después de utilizar la rutina. 

Primeramente vamos a ver algunas subrutinas para recoger las 
líneas individuales y examinarlas (véase Diagrama de Flujo 12.1). Nó- 
tese que existen varias formas de entrar en un bloque común de 
código. 


SUPLN («Set Up LiNe pointers») 


SUPLN ajusta los punteros de las lineas de programa; es utilizada 
por las otras rutinas para señalar a la primera línea del programa 
BASIC. Esta y las otras eliminan los contenidos de los registros a la 
entrada, y las condiciones de salida son las siguientes: 


HL contiene el número de la (nueva) línea 
BC contiene la longitud en bytes de la linea de datos 
DE señala al primer carácter de la línea 


Señalizador Z. está a «uno» si no hay más datos 
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CONTINUAR CNXLN SUPLN AJUSTAR 


HL DIRECCION ANTERIOR DE INICIO 
BC LONGITUD ANTERIOR 


HL == HL+BC+4 HL = inicio DEL BASIC 


RESLN 
Mi=HL 
RESTAURA LA BC ÍNICIO DE LAS VARIABLES 
LINEA EN HL BORRAR EL SEÑALIZADOR DE ACARREO 
(FINAL DEL PROGRAMA + 1) 


M1= HL sl 


SEÑALAR A LOS BYTES DE LONGITUD 
HL=HL+2 COMPUTAR LA INSTRUCCION DE CARGA DE BC 


BC= LONGITUD DEL LA LINEA 


PRIMER BYTE DE LA LINEA (DIRECCION) 
HL=M1 computar LA INSTRUCCION DE CARGA DEL NUMERO DE LINEA EN HL 


HL = HL NUMERO DE LINEA (EN EL ESTILO DE NUMERACIÓN DEL SPECTRUM) 
SWOP INVERTIR LOS BYTES DE HL 


M3= M3= NUMERO DE LINEA (EL BYTE MENOS SIGNIFICATIVO DELANTE) 
HL = N.* DE LINEA (Y M3) 
BC= LONGITUD DE LA LINEA 


DE- DIRECCION DEL PRIMER BYTE 
M1 = DIRECCION DEL N.? DE LINEA 


(RECOGER LOS DATOS DE LA LINEA DEL PROGRAMA BASIC) 


Diagrama de flujo 12.1 
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Las variables M1, M2, M3, M4 y MD se utilizan de la forma si- 


guiente: 


M1 
M2 
M3 


dirección del primer byte del número de linea 
longitud de esta linea en bytes (=BC) 
número de esta línea (= HL) 


M4-M5 almacenamiento temporal mientras se borra una línea 


Listado 12.1 


47835 SUPLN LD HL, (PROG+) 
4990 SUPLM LD (M1) ¿HL 


4993 LD EC, (VARSS) 
5000 OR A 

5005 SBC  HL,BC 

S010 RET  Z 

5015 LD HL, (M1) 
SOZO SUFPLL INC HL 

5025 INC HL 

SOZOÓ LD (SFLA+2) , HL 
3035 SFLA LD BC, (SFLA+2) 
5040 LD (M2) ,EC 
5045 IMC HL 

050 INC HL 

30595 EX DE, HL 

3060 LD HL, (M1) 
30065 LD (SPLE+1) ,HL 
SoO7O SPLE LD HL, (SFLB+1) 
5075 LD A,H 

5080 LD H,L 

5083 LD L,A 

5090 LD (M3) , HL 
50795 RET 

5100 CNXLN LD EC, (M2) 
s105 LD HL, (M1) 
s110 ADD —HL,EC 

s115 INC HL 

5120 INC HL 

s125s INC HL 

3130 INC HL 

5135 JR SUPLM 
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5140 RESLN LD (M1) ¿HL 


3143 JR SUPLL 
3150 Mi DEFYW O 
31393 M2 DEFW 0 
3160 MZ DEFW 0 
2165 M4 DEFW 0 
3170 MS DEFH 0 


3173 PROG EQU 23635 


CNXLN («Continue with NeXt LiNe») 


(Continúa con la línea siguiente.) Esta subrutina utiliza los regis- 
tros de forma parecida a SUPLN pero para la siguiente línea de pro- 
grama. Ajusta HL no a PROG, como hace SUPLN, sino a M1 + M2+4, 
que es el primer byte de la línea siguiente. 


RESLN («REStore LiNe») 


(Restaura la línea.) Después de que una línea haya sido borrada, 
en el lugar donde empezaba aquélla se encuentra ahora el comienzo 
de la siguiente línea no borrada. RESLN ajusta los registros y las po- 
siciones de memoria de acuerdo con esta nueva línea. 


OPERACION DE SUPLN 


A la entrada, HL contiene la localización de una línea (inicial- 
mente la primera). Esta dirección se almacena en M1 y se compara 
con el valor de VARS. Si HL ha alcanzado ya VARS, significa que 
ya no hay más líneas y se efectúa una instrucción RET Z. 

En SUPLL se incrementa HL en dos unidades para señalar a los 
bytes de longitud de línea, y este valor se almacena en SPLA + 2, 
que es la segunda mitad de la siguiente instrucción. La instrucción 
computada en SPLA carga BC con la longitud de la línea actual y la 
guarda en M2. La instrucción computada en SPLB carga entonces HL 
con el número de línea, el cual se encuentra en posición invertida 
y, por tanto, se invierten entre sí los registros H y L y se almacenan 
en M3, ejecutándose después el retorno. En todas las circunstancias 
normales, el señalizador Z estará a cero ya que no hay ninguna ins- 
trucción que afecte a los señalizadores, aparte de la comprobación 


132 


VPARO NUMERO DE LA LINEA DE INICIO 
VPARO +2 FIN DEL NUMERO DE LINEA 


DOS PARAMETROS 


HL HL+BC RESTAURAR DESDE 
BC = NUMERO DE LA LINEA DEL FINAL 
BORRAR El SENALIZADOR DE ACARREO 
HL, HL BG 


2 my o) 


NUMERO DE LINEA 
DEMASIADO ALTO O 
(OR) = FINAL 


M5= M1 (INICIO DE LA LINEA SIGUIENTE) 
HL= VARSS FIN DEL BASIC +1 


BC=M5 
HL = HL-BC LONGITUD QUE DEBE TRASLADARSE 
BC= HL 
HL =MS5 
DE =M4 
LDIR TRASLADA LOS DATOS DESDE HL HASTA DE 


HL= LONGITUD PERDIDA (EN BYTES) 
BC = VARSS 


REAJUSTAR EL PUNTERO DE FIN DE PROGRAMA 
HL = Má (INICIO DE LOS DATOS RECIEN TRASLADADOS) 


NO 


Diagrama de flujo 12.2 
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de SBC, después de SUPLM. Téngase en cuenta que al entrar en 
RESLN, el señalizador Z tiene valor cero. 


OPERACION DE BLOCK 
(Véase Diagrama de flujo 12.2) 


BLOCK precisa de dos parámetros, y su llamada se efectúa de 
la forma siguiente: 


LET L=USR... 
REM: 174, 8234, 


Si el segundo parámetro es menor que el primero, la rutina no 
hace nada. Se llama a OPARS para leer los dos parámetros, los cuales 
serán almacenados en VPARO y VPARO + 2 como números de 
16 bits. 

Se comprueba SBITZ para asegurar que sólo hay dos parámetros 
(se produce error 20 en cualquier otro caso), y el valor del segundo 
parámetro se comprueba también para asegurarse de su validez 
(debe ser menor de 10000). Se llama entonces a SUPLN para señalar 
a la primera línea BASIC y en TSTLN se compara el número de línea 
con el valor del primer parámetro. Si el valor es demasiado bajo, se 
llama a CNXLN para que localice la linea siguiente, y el proceso se 
repite mientras queden líneas para ser examinadas. Si el número de 
línea es igual o mayor que el primer parámetro, se produce entonces 
un salto hacia la rutina BDLE1. 


Listado 12.2 


5180 BLOCE CALL OFARS 


5185 LD  A,(SBITZ) 
5190 XOR  128+64 
5195 JR  Z,BLA 
5200 BLRR LD  DE,Z20 
5205 CALL ERREX 
210 BLA LD HL, (VFARO+2) 
5215 LD EC,10000 
5220 0R A 

3225 SBC— HL,BC 
5230 JR O P,ELRR 
5235 CALL SUPLN 
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3240 
3245 
32390 
2300 
5260 
3265 
3270 
52739 
5280 
3283 
S290 
5295 
5300 
33039 
3310 
33153 
S320 


E E 
325 


SO 


9335 
3340 
5343 
53590 
aa! 
5:60 
353065 
5370 
33739 
5380 
3385 
5390 
3395 
5400 
5405 
5410 
5415 
5420 
5425 
5430 


54330 


TSTLN 


EÉDLE1 


EDLEZ 


BDONE 


EC, (VPFARO) 
A 

HL, BC 
F,BDLE1 
ENXLN 

Z , BDONE 
TSTLN 

HL, BC 

EE, WEFARO+2) 
Á 

HL, BC 

F, EDONE 
HL, (M1) 
(M4) , HL 
CNXLN 

Z , BDONE 
HL, (M1) 
(M5) , HL 
HL, (VARSS) 
BC, (M5) 

A 

HL, BC 

HL 

BC 

HL, (M5) 
DE, (M4) 


A 
HL, (M5) 
EC, (M4) 
HL, BC 

HL 

BC 

HL, (VARSS) 
HL, BC 
(VARSS) , HL 
HL, (M4) 
RESLN 

NZ , TSTLN 
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BDLE1 


El número de línea se compara con el valor del segundo pará- 
metro, la línea limite superior. Si es menor que este límite, la linea 
debe ser eliminada mediante BDLE2; en otro caso, la rutina sale en 
BDONE hacia el cruel y frío mundo del programa BASIC acortado. 


BDLE2 


La linea debe ser borrada. La dirección de inicio se guarda en M4, 
y se llama a CNXLN para determinar la dirección de inicio y la pre- 
sencia de la linea siguiente. BLOCK, especificamente, NO borrará 
la última línea del programa BASIC. 

Se carga BC con el número de bytes que deben ser retenidos 
(desde el inicio de la linea recogida por CNXLN hasta la dirección en 
VARS) y se preparan DE y HL para que la instrucción LDIR desplace 
todo el conjunto de forma que cubra a la línea eliminada. 

VARS se reduce entonces según la longitud de la línea eliminada 
y se llama a RESLN (con el señalizador Z a cero). 

El proceso se repite en TSTLN, donde se comprueba la siguiente 
línea y se borra sí es necesario. 
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Capítulo 13 


AREA DE ATRIBUTOS 


El área de atributos controla los colores de tinta y papel («INK» y 
«PAPER») y las características de brillo y parpadeo («BRIGHT» 
y «FLASH») de cada carácter de la pantalla. Estos atributos están 
dispuestos en forma secuencial a partir de la posición 22528, en 
forma de 24 filas de 32 columnas. Esta rutina permite alterar todos 
o algunos de los atributos en un área rectangular especificando el 
límite superior izquierdo y el inferior derecho del área deseada, junto 
con el byte de atributo requerido. 

La llamada es de la forma: 


LETL = USR... 
REM :X, Y, X 0 Y ¿1 As 


El valor de las X debe estar comprendido entre 0 y 31, y el de las 
Y entre 0 y 23. El valor A (atributo) es un número decimal, según la 
Figura 13.1, que define las características que van a ser presentadas 
en pantalla. Recuérdese que es posible ocultar el contenido de la 
pantalla ajustando al mismo color la tinta y el papel, revelándose pos- 
teriormente el contenido al cambiar uno de los dos colores. 

En la rutina pueden generarse dos errores: 


30 límite superior izquierdo más bajo o más a la derecha que 
el límite inferior derecho. 

31 alguno de los recuadros especificados se encuentra fuera 
del área de atributos. 


OPERACIÓN (Ver Diagrama de Flujo 13.1) 


OPARS recoge los valores que se suponen presentes, y se calcula 
STRTA como la dirección del primer byte de atributos que debe ser 
cargado. 
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TINTA («INK») 


PAPEL («PAPER») | 


128 PARPADEO («FLASH») 


64 BRILLO («BRIGHT » 


| 0 NEGRO («BLACK») 
1 AZUL («BLUE») 
| 2 ROJO («RED») 
3 MAGENTA 
| 4 VERDE («GREEN») 
5 AZUL CELESTE («CYAN») 
| 6 AMARILLO («YELLOW») 


7 BLANCO («WHITE») 


POR TANTO, 128 +32+7%167 PODRIA DAR UN PAPEL VERDE PARPADEANTE Y UNA TINTA BLANCA: 


AREA DE ATRIBUTOS -- SIGNIFICADO DE LOS BITS 


Figura 13.1 


CDIFF contiene la diferencia de + 1 en las columnas (valores X) 
especificados y RDIFF la diferencia de + 1 en las filas. Si los valores 
de fila o de columna son los mismos, se podrá tratar una sola fila 
o columna. Cuando se efectúen varias llamadas, recuerde que si. el 
límite inferior derecho de una coincide con el limite superior izquierdo 
de: otra, se producirá un solapado entre ambos, siendo el anterior 
carácter sobreescrito por el último. 


Una vez que RDIFF y CDIFF han sido ajustados, el bucle doble de 
la rutina ATTRL F 13 escribe las RDIFF filas de CDIFF atributos. Cada 
fila de atributos comienza 32 bytes después del inicio de la fila ante- 
rior y no hay que tratar con las complicaciones del trazado «pixels» 
(PLOT). 
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SATTR 


N/ 


COMPUTAR LA DIRECCION DEL PRIMER BYTE DE ATRIBUTOS 


AzLIN,— LIN 


1 


RDIFF= A 
ATTRB = VPARH + 8 


Le]. [ET 


Diagrama de tlujo 13.1 
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ATTRL 


Ne 


B= RDIFF NUMERO DE FILAS 
HL = DIRECCION DEL PRIMER BYTE DE ATRIBUTOS 


GUARDAR BC EN LA PILA 
GUARDAR HL EN LA PILA 


|=) =CDIFF NUMERO DE BYTES / ATRIBUTOS POR FILA 


RESTAURAR HL HL= HL+ 32 
RESTAURAR BC TRASLADO A LA SIGUIENTE FILA 


B58-1 oecrementar El CONTADOR 
DE FILAS 


Diagrama de flujo 13.2 


Listado 13.1 


5510 SATTR 
5515 


3920 


su23 


5530 
5533 
5540 
5545 
5550 


35555 


93060 
9063 
93970 
73 
380 
3083 
3I90 


Ll el dde] ol 
33 


5400 
3603 
5610 
3613 
S6ZO 
Sexo 
SOLO 
D6Zo 
3040 
3645 
53650 
1635 
3660 
3663 
3670 
és 73 
56860 
36d8s 
S6R0 
1695 


35700 ATTRE 


e. 
ss 
s 
a 


pan] 


CALL OFARS 
LD HL, (VEARO+2) 


ADD  HL,HL 
ADD HL,HL 
ADD  HL,HL 
ADD  HL,HL 
ADD  HL,HL 
LD EC, (VFARO) 
ADD  HL,BC 


LD BEC,167384+6144 
ADD  HL.,BC 

LD (STRTA) ,HL 

LD A, (FARO) 


Cro 32 
JP. P,ERX31 
LD B,A 


LD A, (VPARO+4) 
CP. 32 
JE O F,ERX31 


SUB B 
JR O C,ERXZO 
INCA 


LD (CDIFF),A 
LD A, (VEARO+2) 
CF 24 

JE F,ERX31 

LD B,A 

LD A, (VEARO+6) 
cF 24 

JE FLERXTI 

SUE E 

JR C,ERXZO 

INC Á 

LD (RDIFE),A 
L.D A, (VPARO+8) 
LD (ATTRE),A 
CALL ATTRL 

RET 

DEFB € 
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3705 
3710 
3715 
5720 
9723 
5730 
9735 


Listado 13.2 


53740 
5745 
3730 
57535 
5760 
5765 
5770 
57753 
5780 
5783 
5790 
37935 
5800 
3905 
5810 
3915 
3820 
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CDIFF 
RDIFF 
STRTA 
ERX3O 


ERX31 


ATTRL 


ATTRN 


ATTRM 


A, (RDIFF) 
B,A 

HL, (STRTA) 
BC 

HL 

A, (CDIFF) 
B,A 

A, (ATTRB) 
(HL) ,A 
HL 

ATTRM 

HL 

BC,32 

HL, BC 

BC 

ATTRN 


Capítulo 14 


GRAFICOS EN ALTA RESOLUCION 


El Spectrum tiene una resolución en pantalla de 256 «pixels» hori- 
zontales por 192 verticales. En este capítulo se presentan rutinas para 
trazar lineas y mover un cursor a través de ellas, así como un pro- 
grama elemental de dibujo. 

La única forma de trazar una línea entre dos puntos de la pan- 
talla del Spectrum es dibujar, punto por punto, mediante PLOT, to- 
dos los puntos posibles en la línea entre X,, Y, y X,, Y,, efectuán- 
dolo preferiblemente de una forma rápida. 

Una manera de hacer esto que produce unos resultados razona- 
bles es la siguiente: encontrando incrementos DX y DY, no necesa- 
riamente enteros o positivos en X e Y que puedan ser sumados re- 
petidamente a X,, Y, para que la línea formada se dirija a X,, Y,. 
Esto es, en principio, lo que sucede cuando se dibuja una línea con 
una regla en un papel cuadriculado. 

Los problemas aparecen ahora. ¿Cómo vamos a manejar las frac- 
ciones si hasta ahora sólo hemos tratado con números enteros? ¡No 
se asuste! La respuesta no está en los números en coma flotante sino 
en el sistema de escalado. 

El escalado es una técnica muy utilizada en la programación en 
lenguaje máquina para manejar valores distintos al byte o palabra 
normales de la máquina. A título de ejemplo, tomaremos los pun- 
tos X e Y de la pantalla como números de 16 bits. El byte más signi- 
ficativo representará los puntos reales que pueden ser trazados y el 
byte menos significativo representará las partes fraccionales que 
no pueden trazarse. 

Tomamos las diferencias aritméticas (con signo) entre las X y 
entre las Y y dividimos cada una de ellas por 256 (mediante el cambio 
de signo del byte) para generar las diferencias DX y DY. Esto fun- 
ciona debido a que la máxima diferencia entre dos X, es de 255 pero 
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recordemos que hay que tratar a DX y DY como valores de 16 bits 
y tener en cuenta su signo en el byte más significativo. Para reducir 
el trabajo al trazado (PLOT), DX y DY se desplazan a la izquierda 
hasta que su dígito más significativo representa una cuarta parte de 
un punto. Cuanto más discontinua sea la linea resultante menos 
tiempo requerirá. La elección es suya y debería realizar pruebas modi- 
ficando la rutina SDIFF que ajusta DX y DY antes de ser utilizados 


Listado 14.1 


35823 FLINE CALL OFARS 


5830 LD A, (VPARO) 
5835 LD  B,A 

5840 LD A, (VFARO+2) 
5845 LD  C,A 

5850 LD A, (VPARO+4) 
5855 LD  D,A 

5860 LD A, (VPARO+6) 
5865 LD  E,A 

5870 XLINE LD  (YO+1),BC 
5875 LD (X0),BC 
5880 LD (Y1+1),DE 
5885 LD (X1),DE 
5890 LD  A,0 

5895 LD (X0),A 
5900 LD (X1),A 
5905 LD (YO),A 
5910 LD (Y1),A 
5915 LD (DX),A 
5920 LD HL, (X1+1) 
5925 LD BC, (Xx0+1) 
5930 OR A 

5935 SBC — HL,BC 

5940 LD (DX),HL 
5945 LD (OLDDX),HL 
5950 LD HL, (Y1+1)- 
5955 LD BC,(YO+1) 
5960 OR A 

5965 SBC  HL,BC 

5970 LD (DY)>,HL 
5975 LD (OLDDY),HL 
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5980 
5985 NFOIN 
3990 
5995 
6000 
6005 
6010 
6015 
6020 INVPT 
6025 
6030 
6035 
£040 GNXPT 
6043 
6050 
6035 
6060 
6063 
60470 
6075 
6080 
$085 
60790 
6095 
6100 
6103 
6110 
61153 LFOIN 
6120 
6123 
61:30 
61:33 
6140 
6143 
6150 
61353 
£160 
61463 YO 
6170 XO 
6173 Y1 
£180 X1 


CALL SDIFF 
LD A, (YO+1) 
LD  E,A 

LD D,A 

LD A,(Xo+1) 
LD  C,A 

LD  E,A 
CALL PLOT 

OR (HL) 

LD (HL),A 
CALL LPOIN 
RET  Z 


LD —HL,(X0) 

LD  BC,(OLDDX) 
ADD HL,BC 

LD (xXO) ,HL 
LD HL, (YO) 

LD BC, (OLDDY) 
ADD  HL,BC 

LD (YO) ¿HL 
LD A, (YO+1) 
cr D 

JR NZ,NFOIN 
LD A, (xX0+1) 
CP E 

JR Z,GNXFT 


JR NFOIN 
LD A, (x0+1) 
LD  BE,A 


LD  A,(X1+1) 
CPO BB 


RET — ONZ 
LD A, (Y0+1) 
LD  E,A 


LD  A,(Y1+1) 
A 


Guu 
mmm 
nm" 
E ZZz 
oooO 
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6185 DX DEFW 0 
6190 DY DEFYW 0 
6195 OLDDX DEFW 0 
6200 OLDDY  DEFW 0 
6205 SDIFF LD  A,(DX) 


6210 LD B,A 
6215 LD A, (DY) 
6220 CF E 
6225 RET Z 


6230 SDIFH LD HL, (DX) 
62339 SDIFG LD AH 


6240 CF 8) 

6245 JR Zy¿SDIFA 
6250 cr 200 
62359 RET  NZ 

6260 SDIFA LD HL, (DY) 
6263 LD a, H 
6270 CF o 

6273 JR Z,¿SDIFE 
6280 CcF ON 
6283 RET  NZ 

6290 SDIFBE ADD  HL,HL 
6293 LD (DY) ,HL 
6300 SRA  H 


ER O OL 
LD COLDDY),HL 
LD . HL, (DX) 
ADD HL,HL 

LD (DX),HL 


SRA H 

RR L 

LD COLDDX>3 , HL 
JR SDIFH 


OPERACION DE PLINE 


Tal como está escrita, PLINE espera encontrar cuatro parámetros 
de valores en la sentencia REM, que especifiquen los puntos X,, Y, 
y X,, Y, entre los cuales debe ser trazada la línea. Estos valores son 
recogidos por OPARS y se cargan en BC y DE sin comprobar su va- 
lidez en BC y en DE. 
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1 


XLINE 


XLINE es otra entrada a la rutina utilizada por DRAWL (véase más 
adelante) que traza una serie de líneas. B, C, D, E se cargan en los 
bytes más significativos de X,, Y,, X, e Y, y los bytes menos signi- 
ficativos son borrados. Obsérvese cuidadosamente cómo se realiza 
el almacenamiento el cual no debe alterarse ya que, de otra forma, se 
precisarian más instrucciones. 

X,y X, se cargan en los bytes «bajos» de HL y BC, los bytes 
«altos» son cero y DX es un valor de 16 bits con signo formado 
por X, —X;,. El byte «alto» es cero o bien todo «unos». 

De forma similar, DY se forma a partir de Y, —Y,. La subrutina 
SDIFF produce los valores de DX y DY tan grandes como sea po- 
sible pero no más de un cuarto de un elemento de imagen («pixel»), 
y coloca sus valores en OLDDX y OLDDY. 


NPOIN 


Aquí es donde se dibuja el punto siguiente. BC (y DE) se cargan 
con las coordenadas Y en B, X en C y se llama a PLOT. INVPT, que 
puede ser una instrucción OR o XOR, modifica el contenido de la 
memoria de pantalla (buffer). X, e Y,, como números de 16 bits, se 
incrementan con los valores fraccionarios de OLDDX y OLDDY hasta 
que los nuevos X, o Y, difieran de los antiguos valores almacena- 
dos en DE. 

Este nuevo punto calculado se dibuja y se repite el proceso hasta 
que el punto dibujado coincide con X, Y,, donde la subrutina NPG 
retorna con el señalizador Z a «uno». 


SDIFF 


Todo esto está hecho en forma de remiendos pero puede ser me- 
jorado. DX y DY pueden ser desplazados a la izquierda mientras sus 
bytes más significativos sean todos ceros o todos unos y desplazados 
después dos lugares a la derecha. 

Ahora podemos ya dibujar una línea entre dos puntos. Probable- 
mente no lo utilizará usted mucho ya que el próximo paso es aún 
más interesante. 
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Tas T 


Bex, 
C + Y | PARAMETROS DE VALORES 
D «X,( ¡SIN COMPROBACION) 

E < Y; 


CARGAR XO0, YO, X1 e Y1 
PREPARAR DX Y DY 


PREPARAR OLDDX Y OLDDY 


PREPARAR BC Y DE 


¡el 


TRAZAR O BORRAR EL PUNTO 


EL PUNTO SIGUIENTE DE LA LINEA 


COMPROBACION DE ULTIMO PUNTO 
TODO TERMINADO 
DE CERO 


INCREMENTAR X0 CON OLDDX 
INCREMENTAR YO CON OLDDY 


Diagrama de flujo 14.1 
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Listado 14.2 
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6350 
6330 
6360 
6365 
6370 
6373 
6380 
6385 
6:390 
63953 
6400 
6403 
£410 
6415 
6420 
6423 
6430 
6433 
6440 
6443 
6450 
6433 
6460 
6463 
6470 
6475 
6480 
6483 
6490 
64953 
6500 
6505 
6510 
6515 
6320 
6323 
63530 
63535 


6340 


DRAWL 


DENXF 


GVAL8 


NEY 


DFARS 
HL, (SPARO) 
GVAL8 
Cc 

E,A 
GVAL8 
E 

C,A 
GVAL8 
E 

D,A 
GVAL8 
c 

EJA 
HL 
XLINE 
HL 

DE 

BC 
DRNXP 
EC 

DE 

A, (HL) 
HL 


B,A 
A, (BYTEV) 


¿A 
, (EYTEV) 


BYTEV),A 


6545 JE NBY 
6350 JRVX LD A, (BYTEV) 


6355 LD E,A 
6560 LD A,0 
6565 LD (BYTEV),A 
6570 LD Ak 
6575 0E A 
6580 POF. DE 
6585 POF. BC 
6590 RET 

63593 JROX  SCF 

5600 FOF.| DE 
5605 POF. BC 
6610 RET 


6613 BEYTEV' DEFE O 


DRAWL 
Trazado de una lista de lineas 


DRAWL tiene sólo un parámetro: una cadena cuyo contenido es 
una lista de dígitos y comas interpretados como pares X e Y que 
la rutina traza desde el par 1 al 2, desde éste al 3, y así sucesivamente 
hasta el final de la lista. Nótese que no se comprueba la validez de los 
valores, excepto cuando GVAL8 pasa solamente los 8 bytes menos 
significativos de cualquier valor que encuentre. Estas comproba- 
ciones pueden ser insertadas si se desea. 

OPARS recoge un parámetro de la cadena y GVAL8 recupera 
los valores de los bytes desde la cadena en una forma muy primitiva 
de cargar C, B, E, D con la llamada a XLINE para trazar la linea 
desde BC a DE. 

DE se traspasa a BC y se carga DE con la siguiente posición del 
punto, trazándose a continuación la linea entre BC y DE. El proceso 
continúa hasta que GVAL8 sale con el señalizador de acarreo a uno, 
como consecuencia del fin de los datos de la cadena. 


GVAL8 


La entrada se produce con HL apuntando al parámetro de ca- 
dena. Se carga A con el siguiente carácter que se supone debe ser: 
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RECOGER LAS DIRECCIONES 
| OPARS | DE INICIO DE LA CADENA 


HL= SPAR Y HL SEÑALA AL PRIMER BYTE 


LEE EL PRIMER VALOR 


BC CONTIENE EL PRIMER 
PAR DE PUNTOS 


EA 
ll X LINE ¡ TRAZA LINEA DESDE 
BC HASTA DE 


BC= DE 


LEE UN BYTE DE LA CADENA 
TRASLADO AL SIGUIENTE BYTE 


FIN DE LA CADENA 


SEÑALIZ. DE ACARREO ACTIVADO 
A=BYTEV 


> BYTEV=98 
BYTEV=BYTEV 0 10+B BORRAR EL SEÑALIZADOR 
DE ACARREO 


NOTA: LA CADENA SE SUPONE TOTALMENTE 

CORRECTA. NO HAY COMPROBACION DE 

NUMEROS DEMASIADO GRANDES O DE 

CARACTERES QUE NO SEAN DIGITOS Diagrama de flujo 14.2 
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— Un carácter de comillas indicando el final de la cadena. 

— Un carácter de coma, indicando el final de un valor. 

— Un dígito. Los caractéres que no son digitos no son rechazados 
sino macerados. 


BYTEV: BYTe EValuado 


Esto se efectúa desplazando y sumando para multiplicar por 10 y 
sumando después el valor binario del carácter que se supone un dí- 
gito. No hay comprobaciones y el proceso sigue hasta que se lee 
una coma. 

Ahora que ya podemos trazar líneas, ¿qué hay del borrado de 
las mismas? Esto no es excesivamente difícil. Cambiando el OR (HL) 
en INVPT a XOR (HL), todo funcionará bien siempre y cuando siga- 
mos los pasos con precisión. Debido a que hay, o debe haber, mu- 
chos puntos donde debe realizarse este cambio, la subrutina IVERT 
contiene una lista de bytes que deben cambiarse. Cada llamada a 
IVERT cambia y vuelve a cambiar los mismos. Para aquellos que 
se pierdan, existe SVERT que prepara todas las opciones en OR para 
el dibujo. 


Listado 14.3 


6620 IVERT LD A, CINVET) 


6625 LD  B,A 

6630 LD A, (CHNGE) 
6635 LD CINVPT),A 
6640 LD C(INVRX),A 
5645 LD A,B 

66530 LD  (CHNGE),A 
6655 RET 


5660 CHANGE —XOR (HL) 
6663 SVERT LD A, CINVPT) 


6670 LD E,A 

66073 LD A, (XOROP) 
6680 cr E 

6683 RET  NZ 

66970 CALL IVERT 
56675 RET 


6700 XOROF  XOR (HL) 
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MOVEC 


Esta rutina de movimiento del cursor opera mediante el trazado 
y borrado de un rombo de puntos. Para un movimiento más rápido, 
debe incrementarse la posición del cursor en más de un elemento 
de imagen (un «pixel») o saltar cada vez un recuadro de carácter. 

La base es una llamada a IFKEY que opera de la forma siguiente: 


Las teclas 5, 6, 7 y 8 mueven el cursor en las direcciones obvias. 
(«slow») conecta el movimiento lento. 

(«fast») conecta el movimiento rápido. 

conecta el modo de paso a paso. 

hace salir la rutina y entrega la posición del cursor. 


D Xx +0 


Todas estas teclas deben pulsarse en posición de minúsculas. 

Una llamada LET L = USR ... asigna a L, cuando se pulsa la tecla 
«p», la posición del cursor, que puede ser descifrada por el progra- 
ma BASIC. La pulsación prolongada de la tecla produce salidas repe- 
tidas de la misma posición. A la primera llamada, el cursor está posi- 
cionado cerca del centro de la pantalla pero las repetidas llamadas 
recuperan la última posición conocida del cursor. 


Listado 14.4 


6703 MOVEC — CALL SVERT 


6710 CALL CURSR 
6715 CALL IVERT 
6720 MFAST LD A,l 

6723 LD (23I561),4 
6730 LD (235302)3,A 
6733 CIFKE CALL IFEEY 
6740 DEFE "a" 

6743 JE MEGHT 
6750 DEFBE "5" 

6733 JF MLEFT 
6760 DEFE "7" 

6765 JE MUPUE 
6770 DEFE "gs" 

6773 JE MDOWN 
6780 DEFB "p" 

6785 JE MEXIT 
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E79O 
6793 
£800 
6805 
ébB1l0o 
68153 
6820 
6823 
680 
69353 
6840 
6845 
6850 
6855 
6860 
£8635 
6870 
6875 
6880 
6885 
£890 
6893 
6700 
6905 
6910 
6915 
6920 
67923 
69730 
6935 
6940 
6945 
6930 
69355 
6960 
6765 
6970 
6975 
6980 
6985 
6990 


MSTEF 
MFASU 


MSLOW 


MRGHT 
MRL 1 


MLEFT 
MRLA 


MUFUEF 
MUFL 1 


MDOWN 
MDWNA 


CURSX 
CURSY 
CIFKF 


"pu 
MFAST 


MSLOW 


(23561),A 
(23562) ,A 
CIFKE 
A,10 
MFASU 

A, (CURSX) 
A 


ARCA 
ia AS 


Z ,MELA 
(CURSX),A 
CIFKF 

A, (CURSX) 
A 

Z ,MRLA 
(CURSX),A 
CIFKP 

A, (CURSY) 
A 

Z , MDWNA 
(CURSY),A 
CIFKE 

A, (CURSY) 
A 

188 

Z ,MUPLA 
(CURSY),A 
CIFEP 

125 

8e 

CROSS 
IVERT 
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6993 

7000 

70085 

7010 FLOA 

7015 

7020 FLOR 

70235 

7030 FLOC 

70735 

7040 FLOD 

7045 

7050 FLOAT 
70595 PLOBT 
7060 FLOCT 
7063 FPLODT 
7070 CURSR 
7073 

7080 

7085 

7090 

70953 

7100 

7105 

7110 

7113 

7120 

7125 

71:30 

71:35 

7140 

71435 CROSS 
7150 

7155 

7160 

7163 

7170 

7175 

7180 

7185 

7190 XPLOT 
7193 INVRX 


- CURSR 


IVERT 
CIFKE 
254 
254 
254 
+2 

+2 

+2 

+2 
254 

O 

Ó 

O 

(8) , 
EC, (CURSX) 
HL, (PLOA) 
HL, EC 
(ELOAT),HL 
HL, (PLOB) 
HL, BC 
(PLOET),HL 
HL, (PLOC) 
HL, BC 
(PLOCT),HL 
HL, (ELOD) 
HL, BC 
(PLODT) ,HL 
CROSS 


EC, (PLODT) 
XPLOT 
BC, (PLOBT) 
XFLOT 
EC, (PLOAT) 
XPLOT 
BC, (PLOCT) 
XPLOT 


PLOT 
(HL) 


7200 LD (HL) ,A 


7205 RET 
7210 MEXIT CALL SVERT 
7215 POP. IX 

7220 POP HL 

7225 POP DE 

7230 FOP BC 

7235 LD BC, (CURSX) 
7240 LD A,5 

7245 LD (23562),A 
7250 LD  A,35 

7255 LD (23561),A 
7260 JP. TRAT$ 


OPERACION DE MOVEC 


Esta rutina es tan sencilla que no es necesario dibujar su diagrama 
de flujo sino que trabajaremos directamente sobre el listado. 

SVERT ajusta la rutina de trazado a un estado conocido y des- 
pués se ajustan también las variables REPDEL y REPPER a sus va- 
lores mínimos para conseguir el movimiento más rápido posible. La 
posición inicial del cursor se dibuja con una llamada a CURSR. Se 
llama entonces a IVERT para que la siguiente llamada borre la posi- 
ción actual del cursor antes de dibujar la segunda posición. Esto pro- 
duce un movimiento bastante regular. 

La rutina IFKEY espera ahora a que se produzca la pulsación de 
una de las letras minúsculas del menú. Las teclas del cursor 5, 6, 7 y 8 
provocan saltos a MLEFT, MRIGHT, MUPUP y MDOWN, donde los 
bytes de posición del cursor CURSX y CURSY se modifican ade- 
cuadamente y se impide que puedan salir fuera de la pantalla. Se 
borra la antigua posición y se traza la nueva antes de retornar a 
CIFKE para la siguiente pulsación de tecla. 

Las teclas x, s y f cargan REPPER con el valor adecuado. Nó- 
tesé que un elemento de imagen (un «pixel») cubre verticalmente tres 
líneas de exploración del televisor. 


OTROS DETALLES 


PLOA, PLOB, PLOC y PLOD definen los cuatro puntos del rombo 
respecto a la posición del cursor para que los puntos actuales puedan 
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definirse con la adición de CURSX, considerado con CURSY, como 
un valor de dos bytes para estos cuatro puntos. Estas adiciones dan 
como resultado los puntos PLOAT, PLOBT, PLOCT y PLODT que 
son luego trazados y borrados por CROSS y XPLOT (de acuerdo 
con el estado de INVRX, que es ajustado por IVERT o SVERT). 
Cuando se pulsa la tecla «p», la rutina sale a través de MEXIT, 
la cual restaura los registros, excepto BC, en el que se coloca la 
posición del cursor. Como ya es normal en mis rutinas, las posi- 
ciones de las declaraciones de bytes o palabras son importantes. 


DRAWA: Trazado de matriz 


Con esta subrutina y MOVEC se puede construir un sencillo pro- 
grama de dibujo como se indica en el listado 14.5b. 

DRAWL busca sus datos como valores de puntos en una lista de 
parámetros localizada en una línea REM. DRAWA es una variación 
sobre el mismo tema pero, en este caso, los datos se encuentran 
en una matriz bidimensional que puede ser definida como: 


DIM ?S(...,2) 


donde «?» significa cualquier referencia válida para una matriz y «...» 
es tan grande como se precise. El par de caracteres ?$ (p,1) y ?$ (p,2) 
contiene los valores X e Y para el trazado del punto p como valores 
de un byte. Si el valor Y sale fuera de la pantalla, el punto se omite. 
Esto permite interrumpir la secuencia de la línea cuando sea nece- 
sario. La inserción de puntos fuera de la pantalla es un asunto de 
conveniencia. 


Listado 14.5a 


72635 DRAWA CALL FCALL 


7270 LD HL, C(FARMO) 
7275 LD (DPL+1),HL 
7280 DEL LD A, (DPL+1) 
7285 AND 128+64+32 
7290 CP. 128+64 
7295 JR Z,DL1 
7300 ERX40 LD  DE,40 

OS CALL ERREX 
7310 DL1 LD HL, (DPL+1) 
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7315 
7320 
TIZO 
T3ZO 
73359 
7340 
7343 
7300 
VÍI9S 
7360 
763 
7370 

373 
7380 

285 
7390 

393 
7400 
7405 
7410 
7415 
7420 
7425 
7430 
7435 
7440 
7445 
7450 
7433 
7460 
7463 
7470 
7473 
7480 
7485 
7490 
7493 
7300 
73035 
7510 
7515 


DFLE 


ERX41 


DL2 


NXFER 


DFLCE 


HL 
(DELB+2) ,HL 
BC, (DFLB+2) 


HL 


AL 


(DFLC+2) ,HL 
HL 
HL 
(DPLD+2) ,HL 


A,B 
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7320 DFLD LD DE, (DFLD+2) 
73239 LD A,D 
73930 LD D,E 
73:33 LD E,A 
7340 LD A, E 
7345 AND  128+464 
73950 cr 1289+454 
7335959 JR Z,EXT 
7360 LD A, 
7563 AND - 128+44 
73970 cr 129+654 
7973 JR Z,EXT 
7380 CALL XLINE 
7385 EXT POP. HL 
7390 FOF EC 
7393 JR NXFPFR 
7600 ERX42 LD DE,42 
7605 CALL ERREX 
Listado 14.5b 

ZO LET b=250 

41 DIM k*+(b,2) 

42 FOR x=1 TO b 

93 LET k$(x,1)= CHR*$ 255 

44 LET k$(x,2)= CHR$ 255 

43 NEXT x 

50 LET k=0 

31 LET o1l=0 

53 LET l= USR movec 

34 REM LEER POSICION DEL CURSOR 

S6 FRINT AT 0,03" "2 PRINT  ATO, 

Oil: FOKE 23560,255 
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57 IF 1l=01 THEN  LET 

58 LET k=k+1 

357 LET k$(k,2)= CHR$* 
60 LET k*(k,1)= CHR*$ 
256))) 

61 IF k=1 THEN GO TO 
Z¿ LET m= USR drawa 


pun 


1=655:.35 


INT (1/256) 
INT (1-256%*( INT (1/ 


38 


673 REM k$0:2 
64 LET ol=1 
65 FRINT AT 0,6;k 
66 30 TO S3 


OPERACION DE DRAWA 


PCALL localiza el parámetro de la sentencia REM y se utiliza sólo 
el primer parámetro. Se comprueba que sea una matriz o conjunto 
de caracteres exactamente como está especificado. Se produce un 
error 40 si no es una matriz de caracteres, un error 41 si no es bidi- 
mensional y un error 42 si la segunda dimensión no es dos. 

En NXPPR se obtiene el siguiente [o primer) par de puntos. 
HL señala al primer par de bytes. DPLC es una instrucción de carga 
computada, HL se adelanta dos bytes más y DPLD carga el siguiente 
par en DE mediante otra instrucción computada. Este será el primer 
par de bytes la próxima vez. 

Los pares de bytes BC y DE deben ser intercambiados entre si 
para la llamada a XLINE. Esta inversión podría omitirse pero luego 
habría que invertir los pares de puntos en la tabla y esto se aparta de 
lo normal. 

Una vez que BC y DE están ya preparados, se comprueban para 
asegurarse de que ambos están dentro de la pantalla. Si alguno de 
ellos cae fuera de la misma, se omite la rutina de trazado XLINE y se 
obtiene el siguiente par de puntos y se comprueba que BC sea mayor 
que cero. 


PROGRAMA DE DIBUJO EN BASIC 


Este programa, utilizando sólo MOVEC y DRAWA, permite dibu- 
jar figuras bastante complejas. Las teclas operan según lo especi- 
ficado para MOVEC. La tecla «p» provoca la transferencia de la posi- 
ción del cursor hacia 1 y, .por tanto, hacia la parte n.” k de k$ (). Un 
punto repetido produce la inserción del marcador de fuera de la pan- 
talla y -el cursor puede entonces trasladarse al inicio de la linea si- 
guiente deseada por el usuario. 

Le dejo a usted con el problema de cómo interrumpir la rutina de 
dibujo para que pueda guardar k$ (). Sugerencia: puede reservar la 
parte inferior de la pantalla para el menú de alguna rutina. 
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COMPUTAR LA CARGA DE LA LONGITUD EN BC 


BC= LONGITUO + DIMENSIONES ETC. 


LA SEGUNDA DIMENSION 
NO ES DOS” 


EL CONJUNTO ES DE 
LA FORMA B9 1..., 2) 
ERROR, $Z ASIGNAR A BC EL NUMERO DE BYTES DE DATOS --1 


HL SEÑALA AL PRIMER BYTE 


(HL SEÑALA AL SIGUIENTE PAR DE BYTES) fea 


COMPUTAR LA INSTRUCCION DE CARGA DE LOS 
DATOS DEL PRIMER PUNTO —DPLC EN BC 


COMPUTAR LA INSTRUCCION DE CARGA DE LOS 
DATOS DEL SEGUNDO PUNTO —DPLO EN DE 


DECREMENTAR EL CONTADOR DE BYTES DE DATOS 


CARGAR BC 


INVERTIR LOS BYTES PARA XLINE PUNTO X, Y, 


CARGAR DE POINT Xq Y, 
INVERTIR LOS BYTES PARA XLINE 


TRAZAR LA LINEA 
DESDE X-Yy A XzY2 


AS Diagrama de flujo 14.3 
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SINOPSIS 


DRAWL le permite trazar series de lineas conectadas entre sí 
desde el punto 1 al 2, de éste al 3, etc. Estos puntos están especi- 
ficados como pares X, Y en el parámetro de la línea REM que puede 
ser de cualquier longitud. Por ejemplo: REM: «X1, Y1, X2, Y2, X3, 
Y3, X4, Y4, ... Xn, Yn». 

DRAWA es similar a DRAWL pero los datos se obtienen de un 
conjunto de caracteres de pares (X,Y). Los puntos que caen fuera 
de la pantalla no se dibujan y, por tanto, pueden interrumpirse las 
líneas insertando puntos fuera de la pantalla en la matriz de datos. 

MOVEC utiliza las teclas 5, 6, 7, 8 para mover el cursor por la 
pantalla. La tecla «p» produce la salida de la rutina con la posición 
actual del cursor. Las teclas x, s y f permiten trabajar en el modo de 
paso a paso, movimiento lento y movimiento rápido del cursor. 

El programa de dibujo en BASIC corresponde al /istado 14.4 y 
puede ser elaborado de la forma más conveniente para cada usuario. 
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Capitulo 15 


MISCELANEA 


Se presentan aquí varios detalles que son interesantes aunque 
no merecen un capítulo por sí solos. 


BCD O DECIMAL CODIFICADO BINARIO 


Es una forma de aritmética y de representación numérica. Se con- 
sidera de origen americano y de paternidad dudosa. Permitía a un 
vendedor decir a su posible víctima: «... pero nuestra máquina puede 
trabajar con aritmética decimal. No debería usted complicarse la vida 
con una de las otras. Ellas sólo pueden manejar el (molesto, compli- 
cado, difícil) binario». 

Cada dígito decimal puede ser representado por cuatro bits con 
los valores 8, 4, 2, 1 en BCD 8421. (Hay otra forma: BCD 4421.) El 
280 podrá manejar la aritmética BCD a dos digitos por byte si, des- 
pués de cada operación de adición o sustracción, se inserta una ins- 
trucción DAA (Ajuste Decimal Aritmético), y se prevé una rutina 
especial para la escritura de los números. 

Yo creo que es interesante que una máquina pueda trabajar en 
BCD, ya que existen muchos aparatos electrónicos que están prepa- 
rados para suministrar señales codificadas en BCD —cuatro conduc- 
tores por número decimal— y, por tanto, pueden interconectarse 
fácilmente con los sistemas de ordenadores. 


MODIFICACIONES 


Todo lo que he pretendido hacer en este libro es señalar al lector 
la dirección a seguir. No hay ningún libro que vaya a resolverle todos 
sus problemas pero, a modo de ilustración, incluyo algunas rutinas 
más cuya interpretación dejo en sus manos. 
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Listado 15.1 


7610 DEMO CALL OFARS 


76153 CALL PCALL 
7620 CALL FIDLi 

7623 JE SATTR+3 
7630 FIDL1 LD HL, CFARMO) 
76:33 LD EC,3 

7640 ADD —HL,EC 
7643 LD DE, VFARO+8 
76350 LDI1 

76733 RET 

7660 DEMOZ CALL FCEALL 
7663 CALL FIDL2Z 
7670 JE SATTR<= 
7673 FIDL2 LD HL, (PARMO) 
7680 LD EC,8 

7683 ADD —HL,BC 
7690 LD DE, VRARO 
7693 CALL LDEFR 

7700 CALL LDFR 

7705 CALL LDEFR 

7710 CALL LDEFR 

7715 CALL LDFR 

7720 RET 

7723 LDPR LDI 

7730 LD EC,4 

77335 ADD HL,BC 
7740 INC DE 

7743 RET 

77530 END 


DEMO1 


Esta rutina entra en SATTR después de la llamada a OPARS y 
PCALL. La sentencia REM que espera encontrar es: 


REM k : 0, 0, 15, 7 


dónde k es un atributo (entero) y las constantes son para definir la 
región de la pantalla. 
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DEMO2 
Esta rutina también entra en SATTR pero la sentencia REM es: 
REM al) : 


y los primeros cinco elementos de a() son los que describen la región 
de la pantalla y el atributo requerido. Deben ser todos enteros. Ambas 
rutinas utilizan subrutinas auxiliares. Observe su sencillez, procure 
entender la forma en que actúan y disfrute poniendo algo de su parte. 


ENTRADAS MULTIPLES 


Con una gran cantidad de programas, pueden ocurrir cosas desa- 
gradables: 

— el programa A sale por la pantalla 1 

— el programa B sale por la pantalla 2 

Hay una subrutina común, C, en las profundidades del programa, 
que se encarga de la gestión de la pantalla. 

A está dando salida a la pantalla cuando ésta tiene algún de- 
fecto y lo comunica a C, la cual emite un mensaje de error para el 
operador y espera a que se corrija el defecto en la pantalla. 

El programa B da ahora su salida a la pantalla utilizando la subru- 
tina C y pronto se encuentra en dificultades a menos que C haya 
sido prevista para encargarse del problema. 

La técnica utilizada con más frecuencia consiste en estimar pri- 
meramente el número de llamadas múltiples que pueden actuar al 
mismo tiempo, sumarle un 50 % (o más) y preparar después este nú- 
mero de páginas, utilizando el registro IX o equivalente, para todo 
el espacio de trabajo necesario para una entrada. Cada celda se en- 
carga de una «página» que deja luego cuando la llamada ha termi- 
nado. Si no hay espacio disponible, el programa que está llamando 
debe ser informado de ello para que espere o haga cualquier otra 
cosa hasta que su llamada pueda ser aceptada. 


LA ACCION RECURSIVA O LA SERPIENTE 
QUE SE MUERDE LA COLA 


La acción recursiva es la que se produce cuando una subrutina se 
llama a sí misma. Esto puede ocurrir por accidente en programas muy 
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extensos o de una forma deliberada como resultado de un intento 
de reducción del número de instrucciones u otro caso similar. Siem- 
pre requiere una gran cantidad de espacio en la pila. 

Normalmente, una llamada de una subrutina a sí misma destruirá 
los espacios de trabajo y la dirección de retorno. Por tanto, la rutina 
debe estar preparada para superar este contratiempo. En algunos 
casos, el problema es similar al de las entradas múltiples pero aquí 
los datos están todos almacenados en la pila y una sección de ésta 
se utiliza también como espacio de trabajo. La técnica básica se ilus- 
tra en la Figura 15.1. Usted debe asegurarse de que la llamada de 
la rutina a sí misma sea condicional y que, si la condición no se 
cumple, la subrutina podrá abandonar el círculo vicioso y salir al 
mundo exterior. Si no se consigue esto, como la serpiente que se 
muerde la cola, tendrá también un final desagradable. 


NOTAS SOBRE EL CODIGO MAQUINA Y EL ENSAMBLADOR 


Todos los mnemónicos de los códigos de operación son estándar. 
Las operaciones «escondidas», es decir, aquellas con las cuales opera 
el hardware pero cuya existencia no es oficial, también se utilizan. 

Los mnemónicos utilizados para controlar el ensamblador son: 


DEFB define un byte como un número decimal o un carácter 
ASCII 

DEFS define una serie de bytes utilizando una cadena ASCII 

DEFW define una palabra de dos bytes 

END — especifica el final del código máquina 

EQU requiere una etiqueta, la cual es asignada a una direc- 
ción, que es normalmente la de una variable del sistema 
del Spectrum 

ORG especifica la dirección de inicio del código ensamblado. 


Un valor de un solo byte puede ser especificado como un valor 
decimal (0-255) o un carácter ASCII encerrado entre comillas. Nótese 
que LD A, “** ”” cargará A con el código ASCII de ”* ” 


CODIGO MAQUINA — LO QUE DEBE Y NO DEBE HACER 


Ensamble el código para que funcione en zonas altas de la me- 
moria pero deje suficiente espacio para la pila entre el final del código 
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PUSH HL INTRODUCCION DE LOS 
PUSH BC PARAMETROS EN LA PILA DIRECCIONES BAJAS 


DE LA MEMORIA 
CALL RECUR 
Por 8c lena DE LOS PARAMETROS 
POP HL DESDE LA PILA 


SUBRUTINA RECUR 
ESPACIO DE 
RECUR LD HL,-19 TRABAJO 

ADD HL, SP 
LD SP,HL— 
LD (TM nu / 
LD IX(TM1) 

SP ALA ENTRADA 


DE RETORNO E EN LA SUBRUTINA 
DATOS REFERENCIADOS MEDIANTE 


IX Y DESPLAZAMIENTOS PARAMETROS DE 


ES ENTRADA / SALIDA 


04 
Í LLAMADA CONDICIONAL A RECUR 
7 
| A DIRECCIONES ALTAS 
DE LA MEMORIA 


LD (TM1), 1X 
LD HL£(TM1) 


LD BC;,-14 DIRECCION DE RETORNO MEDIANTE LA 
ADD HL, BC INVERSION DEL INCREMENTO A LA ENTRADA 
LD SP. HL 

RET (TM1 ES UN ESPACIO DE TRABAJO) 


AJUSTAR SP PARA QUE INDIQUE LA 


NOTA: SI LA LLAMADA CONDICIONAL NO SE CUMPLE LO 
SUFICIENTEMENTE PRONTO, EL SISTEMA QUEDARA DESTRUIDO 


Figura 15.1 


y la zona de Gráficos Definidos por el Usuario (UDG) del Spectrum 
(Ver el Capítulo 24 del manual). En general, todo irá bien si el final 
de su código se encuentra alrededor de la posición 63500 en una 
máquina de 48 K. No utilice nunca direcciones absolutas (valores 
numéricos) en su código. Las direcciones absolutas deberían utili- 
zarse solamente para referirse a las variables del sistema del Spec- 
trum (detalladas en el Capítulo 25 del manual) o bien a partes espe- 
cíficas de la ROM. 
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¡Guarde anotaciones en sus programas, especialmente las que se 
refieran a sus errores! 

Siempre que sea posible conviértanse todos los nombres en 
mnemónicos. 

Escriba sus programas lo más directa y claramente posible. (Un 
programa que funciona es mejor que nada. (¡Hay pocos conductores 
que miren debajo del capó!) 

Tenga siempre una idea clara de lo que desea hacer antes de 
empezar. 
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lc 
técnicas 
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(ESPAÑA) 


